


Oferujemy dla Twojego Atari (XL/XE) 


• A.D. 2044 cena: 49 000 

• gra przygodowa (na motywach filmu ‘Seksmisja*) 

• ADAX cena: 49.000 

- komnatówka, misja zwiadowcy na planecie Adax. 

• AUTOMAT PERKUSYJNY cena: 49.000 

• program użytkowy do tworzenia "muzyczek* komputero¬ 
wych; obszerna instrukcja obsługi. 

• CAPTAIN GATHER cena: 46.000 

- gra logiczna, pierwsze plansze wydają się łatwe ... 

• CHANGE cena: 47.000 

- coś dla miłośników łamigłówek. 

• CONSTELLATION cena: 47.000 

- gra ekonomiczna (tylko na dyskietce) 

• CHAOS MUSIC COMPOSER 

cena: 49.000 

- pakiet zawierający program do komponowania, moduł 
odtwarzający oraz wyczerpującą Instrukcję. 

• DAGOBAR cena: 46.000 

- gra logiczna, kolejne przygody dzielnego Kapitana Gat- 
hera 

• DARKNESS HOUR cena: 49.000 

- gra komnatowa; poszukiwanie zaklętych duBz rycerzy. 

• DIGI DUCK cena:49,000 

- Robbo? Niel Chodzący telewizor. 

• GOLD HUNTER cena: 47.000 

- gra przygodowa, poszukiwacz złota w akcji. 

• HANSKLOSS cena: 47.000 

gra przygodowo-zręcznościowa, poszukiwania planów 

tajnej brom w bunkrze Wolfschanze. 

» HYDRAUL1 K+SNOWBALL cena. 49.000 

- dwie gry zręcznościowe. 

» KAMPANIA WR2EŚN]QWA_g.ena; .49.P0Q 

- gra strategiczna oparta na historii wojny obronnej 1939r. 

» KERNAW. . . . . cena: 49 .000 

- gra Komnatowa (zmagania mutanta ze smokiem). 

• KLĄTWA cena: 49.000 

- t^ra przygodowa, koncepcja ł grafika podobna jak 

• KURS FIZYKI cena: 49.000 

- program edukacyjny , dudnienia, załamanie i odbicie fali, 
efekt Dopplera 

• LASERMANIA, ROBBO KONSTRUKTOR 

cena:47.000 

- efektowna gra logiczna oraz program użytkowy pozwala¬ 
jący na tworzenie własnych wersji gry ROBBO. 

• LORIEN’STOMB cena: 46.000 

- ekspedycja archeologiczna do grobowca faraona. 

• MAJOR BRONX ceną:46 000 

- gra zręcznościowo-logiczna 

• MISJA, FRED cena: 47.000 

- zmagania komandosa w tajnej MISJI; 

- wędrówka przez pełną niebezpieczeństw krainę. 

» NERON _ cena: 49.000 

- opis wewnątrz numeru 4/93. 

• PANTHER cena: 49.000 

- wieiofunkcyjny edytor tekstów pozwalający drukować po 

polsku na wszystkich popularnych drukarkach. 

• PANTHER + MICROPRINT cena: 230.000 

• PIEKIEŁKO cena: 45.000 

- prawdziwie piekielna gra, ale wciągająca. 

• OUICK ASSEMBLER cena: 69.000 

- zestaw do programowania w języku asemblera: QA - pa¬ 
kiet edytora, asemblera i mmi-debugera; BUG HUNTER - 
nowoczesny debuger całoekranowy; XL FRIEND - edytor 
tekstów, tabela kodów ASCII; Zestaw procedur bibliotecz¬ 
nych; Podręcznik zawierający krótki kurs programowania. 

• ROBBO cena: 45.000 

- wspaniała gra zręcznościowo-logiczna. 

• RUCU cena: 46.000 

- komputerowa kostka RUBIKA. 

• SAPER cena: 46.000 

- gra logiczno-zręcznościowa. 

» SP Y M ASTER _ęepjf.; 56.009. 

- 'Kloss to przy nim dziecko', 4 gry w jednej!!! 

» SYN BOGA WIATRU cena: 49.000 

- gra komnatowa (poszukiwacz skarbów w starożytnym 
mieście indian). 

• SZPERACZ DYSKOWY cena: 49.000 

- program użytkowy służący do obsługi szeroko pojętych 
operacji dyskowych. 

• THE JET ACTION cena: 48.000 

- kosmiczny RIVER RAID dla łamaczy joysticków. 

• TRIX cena: 46.000 

- wciągająca gra zręcznościowo-logiczna. 

• U 235 cena: 46.000 

- krótka recenzja: "rozkosz łamania głowy". 

• UCZEŃ CZARNOKSIĘŻNIKA 

cena: 49.000 

- gra komnatowa, przygody adepta czarnej magii. 

• UPIÓR cena: 49.000 

- gra komnatowo-labiryntowa, przygody śmiałka w zamku 
pełnym niebezpiecznych stworów. 

• VICKY cena: 49.000 

- przygody młodego wikinga w krainie WalhaJii. 

» WŁADCY CIEMNOŚCI cena: 51.000 

- bohater Klątwy znów w akcji! 


Programy wydane przez L.K.AVALON na 
licencji ZEPPELIN GAMES: 

(Cena każdej z gier: 49.000) 

• BLINIOTS SCARY SCHOOL 

przygody dobrego duszka. Znakomita grafika, dużo efe¬ 
któw specjalnych. 

• CAVERNIA 

zbieranie skarbów w kompleksie jaskiń. 

• MIRAX FORCE 

- kosmiczna walka z eskadrami nieprzyjaciela. 

• NINJA COMMANDO 

- aby przeżyć, musisz walczyć. 

• SPEEDACE 

- symulator wyścigu motocyklowego. 

• STACKUP 

- gra zręcznościowo-logiczna, układanka, 

• ZYBEX 

- podróż kosmiczna przez niebezpieczne światy 

Programy wydane przez L.K.AVAL 
licencji K-SOFT. 

(Cena każdej z gier; 49 000) 

» ANDROID 

- gra komnatowa, zmagania androida z najeźdźcami 

» IMAGINE 

- przygody maga w krainie snów 

» MICROX 

- gra edukacyjna, układanie wzorów związków chemicz¬ 
nych. 


» MICROMAN 


- wciągająca komnatówka. 

» MIPNI OHT 


.cena: 49.000 


..cena: 55.000 


- gra komnatowa, ratujesz zamek przed zniszczeniem 

• MIECZE VALDGIRA cena: 49,000 

- przygodowa gra fantasy z doskonałą muzyką. 

» MIECZE YALDGIRA II cena; 69.000 

MONSTRUM cena: 49.000 


cena: 49 000 



Wymienione niżej programy ni< 
powstały w naszej firmie. Zachęcamy 
Jednak do ich zakupu. 
ARTEFAKT PRZODKÓW cena- 69 000 


• n 

7 2E 

- poi! 
austri 


- ponad 100 różnorodnych komnat, znakomita graffKa 
płynna animacja. 


» AUPJQ_MA3JEB_ 


cena: 69.000 


, program muzyczny służący do tworzenia i obrąbki pró¬ 
bek dźwiękowych. 

» SAMPLE Ł 


jena. 2 90.000 


- Audio Master + urządzenie do digitalizacji dźwięku 

• BANG! BANKI cena: 48.000 

- strzelanina na Dzikim Zachodzie. 

• BATTLE SHIPS cena: 48.000 

- gra w "statki* z komputerem. 

• BERTYX cena: 48.000 

- zmagania z wrogim komputerem na planecie Bertyx 

• DUCH, ROBAL cena: 48.000 

- zestaw dwóch gier labiryntowych. 

• EME-WIEŻE___ setia-.56.Q0Q 

- gra fantasy. 

» EUREKA 


- popularny "roba!" w nowej oprawie. 

• MÓZG PROCESOR 

- wznowienie znanej gry tekstowej 

• MUFF, DRUTT cena: 49.000 

- zestaw dwóch gier zręcznościowych. 

• NAJEMNIK cena: 49.000 

- walka bohatera z przestępcami; niezła strzelanina. 

• NEW WORDS cena: 49.000 

- program edukacyjny, kurs języka angielskiego, z instru¬ 
kcją. 

• OPERATION BLOOD cena: 49.000 

- krwawe starcie z niezliczoną ilością przeciwników (Ope- 
ation Wolf) 

ORTOGRAFIA cena: 48.000 

program edukacyjny, nauka połączona z dobrą zabawą. 

» gUTRIS_ c»na.-53.000 

- gra logiczna na bazie Tetrisa 

» PICASSO_ cena: 49.000 

prosty program graficzny 

• PONG ąjf 

- gra zręcznościowa 

• PROBLEM JASIA 

- puzzle ze zdjęciami po; 

PRZEMYTNIK 

:k ekonomiczna. _ ... _ w * w* \ r h 

RASZYN cena: 49.000 

polska gra strategiczna, bitwa pomiędzy VII korpusem 
austriackim a wojskami Księstwa Warszawskiego. 

» REVERSE/MI $$ ILE j 

dwie gry logiczno zręczrrV 

• RIOT c 7,a: 49.000 

- walki karate w cygańsk ej dzielnicy. w 

• RODERIC ■ cena: 44.000 

przygody rycerza w sta. m zamczysku 

» 3H1E cena: 45.000 



- przygody cybernoida w statku kosmicznym 

• SKARBNIK cena: 46.000 

gra logiczna. 

» SOS SATUR N _ cena- 49.000 

- Saturn wzywa Twojej pomocy, gra komnatowa. 

• SOUND TRACKER cena: 55.000 

- program muzyczny, wzorowany na Imienniku z Amigi. 

» SUEEBJEORTUNA_ cena: 49.000 


cena. 48.000 


- stajesz qo turnieju o tytuł najmądrzejszego z genialnych. 

» FATUM _ cena: 52.000 

- typowa gra przygodowa, mnóstwo strzelania t walki, 

» FILM EDITOR _ cena: 49,000 

- program do tworzenia filmów animowanych 

• GALLAHAD cena: 49.000 

- gra komnatowa, walka Tristana z podstępnym Magiem. 

• GEOGRAFIA POLSKI cena: 44.000 

- prosty program edukacyjny (klasa V i VI). 

• GEOGRAFIA ŚWIATA cena: 49.000 

- program edukacyjny (państwa, stolice, waluty itp ) 

• GUARD cena: 49.000 

pilot kosmicznego myśliwca wałczy z eskadrami wroga 

• HELIX cena: 48.000 

- bohaterski Heli* przemierza komnaty starego z. 
ska. 


- kolejna mutacja "Koła Fortuny". 

• TACTIC 

gra logiczno-zręcznościowa. 

• TANKS 

walka czołgow w labiryncie 

• THE CONVICTS j 

gra labiryntowa (podobna dc ROBBO) 

• THINKER cena: 49.000 

- dwie proste, lecz ciekawe gry logiczne 

W TRON - Cykl Świetlny _ cena: j 

gra oparta na motywie z filmu TRON 


cena: 49.000 


cena: 49.000 


cena: 49.000 


» TURBICAN 


• HUMANOID 

- gra zręcznościowo-logiczna. 

» HY DR AULIK . 


cena: 49.000 


cena; 48,WQ 


- gra zręcznościowo-logiczna. Niesforna woda wylewa się 
wszystkimi możliwymi dziurami. 

• INSPEKTOR _ cena: 49.000 

- gra przygód owo-komnatowa. 

• I.Q. MASTER cena: 49.000 

- gra zręcznosciowo-loglczno-edukacyjna. 

• JAFFAR cena: 53.000 

- gra komnatowa 

» JUMPING JACK _ cena: 49.000 

- gra zręcznościowe - logiczna 

• KOLONY 

- gra ekonomiczna, 

• KRUCJATA 

- gra komnatowa 

• KULT 


cena: 48.000 


cena: 55.000 


cena: 51.000 


pomysł jakby znany (ZYBEX), szybka akcja, dużo strze¬ 
lania. 

• MAGIA KRYSZTAŁU cena: 57.000 

- wędrówka maga Tannatosa ku twierdzy demona Syryła- 
ka. 

• MASTER HEAD cena: 49.000 

- gra logiczna z kilkunastomłnutową muzyką. 


mt _ ■ _ cena: 56.000 

- komnatowa gra logiczna, dziecko Blinky ego w akcji. 

• T v T cena: 55.000 

- gra strategiczna dla dwocn osod 

• VIDEOGRAPH ~ cena: 48.000 

- narzędzie do tworzenia czołówek filmów video. 

» WHOOES_cena; 4ŁQQQ 

gra zręcznościowa. 

• ZESTAWY GIER Z TA: 

1. Fac, QQ, Roba!, Dalej Niż Słońce. 

2. Heartlight, Puzzle, Oczko. 

3.Odsiecz, Foliow, Klocki, Pustynna Burza. 

4. AQQ, Golf, Pono, Kulki. 

5. The Jej, Piramida Żaba. Inwazja 

6. E=mc , The Moving Cubes, Pillbox, Zjadacz. 

Cena zestawu: 38.000 

Cena kompletu (1-3 lub 4-6): 95.000 

Każdy, kto do końca lipca 1993r zamówi 5 do¬ 
wolnych gier z naszej oferty, otrzyma za darmo, 
dodatkowo dyskietkę iub kasetę czyszczącą. 


Zamówienia na kartach pocztowych, z wyraźnym oz¬ 
naczeniem rodzaju nośnika (kaseta lub dysk) oraz 
pełnym adresem zamawiającego prosimy kierować 
do: 

L.K. AVALON 
skr. poczt. 46 
38-100 Strzyżów 

Uregulowanie należności następuje przy odbiorze 
przesyłki. 
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Cat Food jest rezyden¬ 
tną nakładką, która two¬ 
rzy urządzenie o nazwie 
F: Jego zadaniem jest 
kompresja 1 dekompresja 
danych podczas zapisu 
1 odczytu na/z urządeń 
zewnętrznych 

Aby poddać kompresji 
jakikolwiek program nale¬ 
ży zapisać go na urządze¬ 
nie F:. podając po dwu¬ 
kropku specyfikację urzą¬ 
dzenia docelowego 1 na¬ 
zwę, pod Jaką ma hyć zapi¬ 
sany spakowany plik, np.. 

F:D:PROG.ASM, 

F:D8sYES, 

F:C: 

Plik odczytywany z urzą¬ 
dzenia F: automatycznie 
podlega dekompresji 

Urządzenie F: sygnalizu¬ 
je następujące błędy: 

• 252 otwarcie pliku 
równocześnie do od¬ 
czytu 1 zapisu 
(ICAX1= 12) 

• 253 ostatnia opera¬ 
cja we/wy dla tego 
kanału zakończyła 
się niepowodzeniem 
(np próba zapisu 
lub odczytu pliku, 
którego nie udało się 
poprawnie otworzyć) 

• 254 próba skierowa¬ 
nia spakowanych da¬ 
nych do F: (czyli uży¬ 
cie Jako nazwy pliku 
napisu F:F:) 

• 255 otwarcie więcej 
niz lednego kanału 
dla Fs 


Ponowne uruchomienie 
powoduje usunięcie pro¬ 
gramu Cat Food z pamięci 
komputera, oczywiście tyl¬ 
ko wtedy gdy Jest to mo¬ 
żliwe. 

Uwaga W przypadku 
urządzenia C:, czyli mag¬ 
netofonu, zapis 1 odczyt 
przebiega zawsze w trybie 
z krótkimi przerwami mię¬ 
dzy rekordami 


IJ 1000 REM *- * 

DG 1002 REM ; CATFOOD 

NK 1004 REM : autor: RiP 

YY 1006 REM : (C) 1992 Tajemnice ATARI 

JP 1008 REM *- -’ 

YO 1010 DATA ffff00901791c3c6a0b3aeb6a0 
RT 1020 DATA e2f9a0d2e9d043617420666f6f 
EW 1030 DATA 6420332e36207772697474656e 
BU 1040 DATA 206279205269509b43616e2774 
JX 1050 DATA 20756e696e7 374616c6c204 361 
XK 1060 DATA 7420466£6£6421fd9b43617420 
XB 1070 DATA 466f6f6420756e696e7374616c 
NR 1080 DATA 6c65642e9b4e6f20726f6f6d20 
NM 1090 DATA 696e2048415441425321fd9ba0 
AR 1100 DATA 0d4cf590a200bdla03f0f4c946 
RX 1110 DATA f00ee8e8e8e02190f0a05a4cde 
CP 1120 DATA 90bdlb0385cbbdlc0385cc86cd 
NX 1130 DATA a00eblcbc50cd03ec8blcbc50d 
XB 1140 DATA d037c8a200bd0090dlcbd02dc8 
QY 1150 DATA e8e00d90f3a50d8de802a50c8d 
BR 1160 DATA e702a001bl0caac8bl0c850d86 
JZ 1170 DATA 0ca6eda9009dla039dlb039dlc 
RJ 1180 DATA 03a044d002a02920f590a210a9 
AJ 1190 DATA 0c9d42032056e4188a6910aal0 
AF 1200 DATA f16c0a00a9098d42038d4903a9 
QN 1210 DATA 908d45038c4403200d91a2004c 
UZ 1220 DATA 56e4ad470348ad460348a99b60 
WG 1230 DATA e202e30273900090dc92200000 
WA 1240 DATA adde918de702addf918de802a9 
KP 1250 DATA ff8d25908da490a246acdc91ad 
KI 1260 DATA dd914cbceea0£fa900106e8ed9 
PF 1270 DATA 918d0191a2008elf914e2590a0 
NC 1280 DATA fea52a290cc90cf05729088dbl 
UR 1290 DATA 90a001bl24c93af001c8389865 
MD 1300 DATA 2485249002e625al24f00cddla 
EX 1310 DATA 03£00be8e8e8e02490f4a08230 
RC 1320 DATA 2ba0fec946f025bdlb038dcf91 
El 1330 DATA bdlc038dd09138a001bl24e931 
VF 1340 DATA c9099002a9008521e62120cd91 
US 1350 DATA a980853e604ea49060ecd991d0 
SD 1360 DATA 6f0e2590a00030050ea4903063 
NB 1370 DATA ba8ec691a900f0082c01913008 
GN 1380 DATA 209a91a0034ccd91adlf91f0f6 
PN 1390 DATA adfd9120b391204791d0fSf0e9 
QD 1400 DATA a920d00320b7914e01918dfd91 
DB 1410 DATA 20b7918db291adb291f009ceb2 
SL 1420 DATA 91ad£d91a001600e0191300b20 
UF 1430 DATA 8b91ba8ec691a90010e220b791 
DZ 1440 DATA C9e0f0ccc9fbf0c4a00160208b 
YK 1450 DATA 91ba8ec6912c01911052a00099 
HE 1460 DATA fd91eel£91c00290e5a201adfd 
QI 1470 DATA 91cdfe91d006e8cdff91f01dc9 
IL 1480 DATA e0f022c9fbf01e20b391a00lad 
MD 1490 DATA fe918dfd91adff918dfe91celf 
BF 1500 DATA 9160e88eb2914e019110af8eb2 
ZM 1510 DATA 9120a391204 79lceb29ld0f8f0 
HE 1520 DATA 9fedfd91d008eeb291d095ceb2 
GA 1530 DATA 9148209a91688dfd91a0018clf 
RS 1540 DATA 9160ecd991d0052ca4903004a0 
SG 1550 DATA fd686860a9fbacfd91c020f008 
LF 1560 DATA a9e020b391adfd9120b3910e01 
OX 1570 DATA 91a900a0071002a005a6228ec9 
RD 1580 DATA 9120cd9lG0001003a2009aa200 
JH 1590 DATA 862260aab9ce914888986a90f7 
LK 1600 DATA 8aa2006000e091009221909a90 
KE 1610 DATA f890119l0e910e9100000000c3 
VU 1620 DATA C6a0b3aeb6a0e2fi9a0d2e9d0d9 
LM 1630 DATA C5d3a50c8d0190a50d8d029018 
YJ 1640 DATA ade7028dee91850c69038Scbad 
AU 1650 DATA e8028def91850d690085cc6020 
SY 1660 DATA 0092a9608d2492a90085cfade7 
XK 1670 DATA 0285d4ade80285d538a90085d2 
Ol 1680 DATA e5d485d0a99085d3e5d585dla0 
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AA 1690 DA5GA 00f0033866c£a5d2c924a5d3e9 
WZ 1700 DATA 9290036ccb0024cf7063302?bl 
VB 1710 DATA d285ce91d420d092aaf0dec920 
AR 1720 DATA £017c940f0d9c960f0d5290dc9 
VH 1730 DATA 08f0c£90418a291£c909f03abl 
NF 1740 DATA d2c8c900bld288e9909012bld2 
GO 1750 DATA C8c924bld288e992b006&5d0a6 
UN 1760 DATA dl900724c£30ala900aa85d686 
RC 1770 DATA d738bld2e5d691d420d092bld2 
EM 1780 DATA 65d74cc892bld291d420d0924c 
XW 1790 DATA 5292e6d2d002e6d3e6d4d002e6 
EY 1800 DATA d560e202e3022492 


RiP 


ANTIC3 


Jak Juz wcześnie) wspomniałem, każdy znak ma wysokość 10 
linii. Jednak Jego definicja zajmuje tylko 8 bajtów Wiąże się to 
z tym znaki o kodach 0-95 (S00-S5F) 1 oczywiście Ich negatywy 
wyświetlane są w ośmiu górnych Uniach Dwie pozostałe doda¬ 
wane są poniżej znaku w kolorze tła znaku (dla pozytywu pu¬ 
ste) Natomiast dla znaków o kodach 96-127 (S60-S7F) Unie te 
umieszczane są na początku, a na końcu dodawane są dwie 
pierwsze Unie danych znaku 

Aby zabrać się do przedeflniowywanla zestawu znaków nale¬ 
ży zaopatrzyć się w odpowiedni program Niestety, takowego 
nie ma 1 chyba nigdy nie będzie Na szczęście można przerobić 
Jakiś Inny służący do definiowania znaków w trybie 2 ANT1CA 
(dla Baslca tryb 0). Najodpowiedniejszy wydaje się być Font De¬ 
signer Janusza B Wiśniewskiego, znajdujący się w zestawie 
edytora Panther. Zamieszczoną poniżej poprawkę należy wyko¬ 
nać programem Patcher+ z TA 11-12/92 Można tez poprawić 
program "na żywo”. Wystarczy po wdaniu Font Designera, 
XLFriendem zmienić bajt spod adresu S941F z SC2 na SC3 
oraz trzy bajty od $9422 do $9424 z $02 na $03 

1000 REM Poprawka do Font Designera 

1010 DATA 37,194,195 

1020 DATA 40,2,3 

1030 DATA 41,2,3 

1040 DATA 42,2,3 


Tworzeniem obrazu w komputerze Atarl zajmuje się układ 
zwany ANTIC, współpracujący z Innym - GTIA ANTIC tworzy 
cały obraz, GTIA dodaje tylko Informacje o kolorach 1 dusz¬ 
kach ANTIC posiada 14 trybów wyświetlania, z czego 6 Jest te¬ 
kstowych, a 8 graficznych. Jednym z bardzo ciekawych, a rzad¬ 
ko używanych Jest ten o numerze 3 Jemu to właśnie poświęco¬ 
ny Jest niniejszy artykuł 

Tryb ANTICA 3 Jest tekstowy Pozwala wyświetlać znaki skła¬ 
dające się z 10 Unii 1 8 pikseli Wyświetlany tekst Jest dwukolo- 
rowy Jest on na pierwszy rzut oka podobny to standardowego 
(drugiego) Tryb ten Jest szczególnie przydatny przedstawicie 
lom narodowości mającym w swoim alfabecie 'dziwne' znaczki 
Oczywiście Polacy do nich należą. Dla przypomnienia, w na¬ 
szym Języku Jest to dziewięć literek małych 1 tyleż samo dużych 
O Ile zaprojektowanie małych liter w standardowym (2 ANTI¬ 
CA) trybie graficznym nie stanowi problemu, to duże litery są 
prawdziwą zmorą Rozwiązania polegające na tym, że na przy¬ 
kład duże Ź ma wysokość małego, a małe Jest nlzsze (1 nieczy¬ 
telne) Jest nie do przyjęcia, gdy tymczasem w trybie 3 ANTICA 
nie stanowi to żadnego kłopotu, ale o tym za chwilę. Mimo 
swych zalet tryb ten Jest bardzo pokrzywdzany Największą wi¬ 
ną za taki stan rzeczy należy obarczyć samych konstruktorów 
systemu operacyjnego Atarl Nie umieścili oni go w Instrukcji 
GRAPHICS 1 OPEN Baslca. Również wśród programistów pa¬ 
nuje przekonanie, ze są to Jakieś "znaczki dziwaczki'', a Jedyną 
"winą" 3 trybu ANTICA Jest, to że wymaga on stosowania odpo¬ 
wiednio przedeflnlowanego zestawu znaków (zresztą nie tylko 
on, 4 1 5 tryb ANTICA też). 



Co powiecie na mały rajd? Chyba każdy lubi Jazdę szybkimi 
samochodami Miło czuć pęd l patrzeć na przemykające krajo¬ 
brazy Nie Jest to Jednak zabawa bezpieczna - moment nie¬ 
uwagi może kosztować zbyt wiele. Co Innego, gdy do Jazdy uży¬ 
wa się komputera' Nasze małe ATARI wiele potrafi Spróbujcie 
zresztą sami Wystarczy przepisać poniższy listing 1 zgrać goto¬ 
wy program za pomocą Zgrywusa+ Milej zabawy! 

IJ 1000 REM *-* 

WT 1002 REM : Rajd : 

JV 1004 REM : autor: Dariusz Rzepka : 


Dysponujemy więc odpowiednim programem Teraz możemy 
zacząć przerabiać czcionkę W tym celu ładujemy pożądanego 
fonta, a następnie wszystkie literki, cyferki 1 Inne znaczki obni¬ 
żamy o Jedną Unię w dół W tym celu "stajemy' na znaku 1 naci 
skamy CONTROL wraz ze strzałką w dół Po tej przeróbce za¬ 
uważamy, ze przecinek 1 średnik wyglądają Jakoś dziwnie Ko¬ 
piujemy Je do dolnej Unii (tej z małymi literami) No, teraz wy¬ 
glądają normalnie. Czcionka Juz Jest Teraz możemy zająć się 
polskimi literkami Te, które mają zawijasek na dole (ą ę Ą.Ę) 
umieszczamy w dolnej linii, pozostałe w jednej z trzech gór¬ 
nych Wystarczy pamiętać, ze w znakach o kodach 96-127, 
dwie górne Unie przenoszone są na dół Możemy Jeszcze popra¬ 
wić takie literki. Jak p, J, y, Itp tak, aby miały wyraźne ogonki 

Jeśli dzielnie wykonaliśmy wszystkie zaproponowane popra¬ 
wki to dysponujemy pełnowartościową czcionką Mozę być ona 
wykorzystana w dowolnym programie. Wydawać by się mogło 
ze Jest to wymarzony font do gier tekstowych 1 edytorów/proce¬ 
sorów tekstu Niestety, Ich autorzy twierdzą Inaczej. Myślę, ze 
po lekturze tego artykułu fakt ten ulegnie natychmiastowej 
zmianie Rynek oprogramowania zostanie zalany produktami 
wykorzystującymi 3 tryb ANTICA. 

Czego zyczy autor. 


Maciej Majchrowski 


ZR 1006 REM : (c) 1993 Tajemnice ATARI : 

JP 1008 REM *-* 

W 1010 DATA fff£0090509 5a9cea000202794 
PE 1020 DATA a9518586a9958587a20da01bbl 
YD 1030 DATA 8291868810£9a928203294a91c 
LR 1040 DATA 203c94cal0ea20f793a9d2a000 
JS 1050 DATA 202794a94e9182a0089182a00b 
OR 1060 DATA 9182a013918288a955918288c0 
RD 1070 DATA 0bd0£9a007918288d0fba92420 
GZ 1080 DATA 3294a000b9b7949182c8c01cd0 
PC 1090 DATA f6a990a00b918288c006d0£9a0 
FL 1100 DATA 129182a928203294201294a200 
SA 1110 DATA bd£6948d9490bd0b958d9c90bd 
XB 1120 DATA 20950d8f90a928203294a000b9 
KN 1130 DATA d3949182c8c005d0f6e8e015d0 
Mo 1140 DATA d8a002a9ae202794201294a001 
JR 1150 DATA a94e202794a200bd35958dca90 
IS 1160 DATA bd3d958dcf90bd45958dd790a9 
BW 1170 DATA 00203294a000b952949182c8c0 
MA 1180 DATA 0bd0f6e8e008d0d8a9008d00d2 








QS 1190 DATA 8d0ld28d02d28d03d28d04d28d 
II 1200 DATA 05d2a9038d0fd2a9ff8dfc02ad 
ME 1210 DATA fc02c9ffd01aad0fd22908f013 
KC 1220 DATA adlfd0c906f00cad8402f007a9 
AC 1230 DATA 00854d4cfd90adfc02c91cd028 
TJ 1240 DATA a000a9ce202794a9518586a995 
FL 1250 DATA 8587a20da01bbl8691828810f9 
HB 1260 DATA a928203294a9lc203c94cal0ea 
FP 1270 DATA 60a9ff8dfc02a9338591ad5095 
SY 1280 DATA 8590a9028593a92b8592a000a9 
LR 1290 DATA fd202794a582858ea583858f20 
ZH 1300 DATA f793a208a002a988202794a909 
BA 1310 DATA 858aa000ad4d959182c8c48ad0 
NE 1320 DATA f918a906658aa8ad4d959182c8 
QN 1330 DATA C018d0f9204694ca301aad0ad2 
ND 1340 DATA f0d9c90ll007c902f0084ca491 
FM 1350 DATA C68a4c8291e68a4c8291a960a0 
WX 1360 DATA 02202794a5828588a5838589ad 
WL 1370 DATA 4e95a4919188a90Sa2ffa0ff88 
AM 1380 DATA d0fdcad0f8aaca8ad0fIa690a0 
NQ 1390 DATA f f88d0fdcad0f8a9a68d04d2a9 
BH 1400 DATA 448d05d2a208a002a960202794 
DI 1410 DATA a582858ca583858da002a98820 
KB 1420 DATA 2794a017bl8c91828810f9a904 
FL 1430 DATA 20469438a58ee928858cb002c6 
VW 1440 DATA 8dcad0e4ad0ad2f01ec901f007 
JB 1450 DATA C902f00e4c2d92a58ac901f0ea 
AA 1460 DATA C68a4c5092a58ac911f0dfe68a 
HN 1470 DATA a001a948202794a000ad4d9591 
UJ 1480 DATA 82c8c48ad0f9a206a9009182c8 
HB 1490 DATA Cad0faad4d959182c8c018d0f9 
KF 1500 DATA a592f005c6924c9c92a92f8592 
CR 1510 DATA a58al86593a8ad4f959182a593 
SF 1520 DATA C902f005c6934c9c92e693a004 
LB 1530 DATA bl8ec999f008aae88a918e4cd0 
RC 1540 DATA 92a990918e88c002f012bl8ec9 
ZX 1550 DATA 99f0fIaae88a918ea900854d4c 
XK 1560 DATA d092c690c690c6904cb592ad4e 
CR 1570 DATA 95a4919188adfc02c907f04ac9 
OW 1580 DATA 06 f02ac9lcf020ad7802c907f0 
MO 1590 DATA 3bc90bf01ba59138e928a8bl88 
GD 1600 DATA Cd4d95f058cd4f95f0534ce591 
MH 1610 DATA 2025914C0090a9ff8dfc02a591 
RE 1620 DATA 38e901a8bl88d03b38e929a8bl 
LA 1630 DATA 88d033c6914ce591a9ff8dfc02 
HQ 1640 DATA a59118690198bl88cd4d95f01c 
GQ 1650 DATA Cd4f95f01738a591e927a8bl88 
JX 1660 DATA Cd4d95f00acd4f95f005e6914c 
CN 1670 DATA e591a9328d00d2a9c88d02d2a9 
ZG 1680 DATA 8f8d01d28d03d2a903a2ffa0ff 
AQ 1690 DATA 88d0fdcad0f8aaca8ad0fla00b 
AZ 1700 DATA bl8ea000dl8ef005903f4C06 93 
ZK 1710 DATA a00cbl8ea001dl8ef00590304c 
YP 1720 DATA 0693a00dbl8ea002dl8ef00590 
EB 1730 DATA 214c0693a00ebl8ea003dl8ef0 
ZY 1740 DATA 0590124c0693a00fbl8ea004dl 
ZG 1750 DATA 8ef00590034c0693a9b78584a9 
CP 1760 DATA 948585a000bl8ea0129184a001 
LB 1770 DATA bl8ea0139184a002bl8ea01491 
XK 1780 DATA 84a003bl8ea0159184a004bl8e 
FC 1790 DATA a01691844c0693a001a9482027 
IL 1800 DATA 94a208a017a90091828810fba9 
QI 1810 DATA 28203294cal0ef60a000a9d991 
XE 1820 DATA 82a01ba959918288a980918288 
WO 1830 DATA d0fb6018655885829865598583 
ZR 1840 DATA 6018658285829002e683601865 
ML 1850 DATA 8685869002e6876038a582e928 
DI 1860 DATA 8582b002c68360495500005500 
ZA 1870 DATA 49554f4955d90059d900590000 
WP 1880 DATA 59d90059d9d54fd9d559490059 
FX 1890 DATA d900594b004c4b004c00d5004b 
JA 1900 DATA d5246c61000234616a656d6e69 
KQ 1910 DATA 63002134213229026e61706973 
AV 1920 DATA 616c2461726975737a00327a65 
WB 1930 DATA 706b610863090012150el0110e 
WC 1940 DATA 1119191349554ecd80b09a9299 
PW 1950 DATA 90949880cbec80b29a94909090 
MC 1960 DATA 9080cd4e554f428080d54dd580 
IW 1970 DATA 80568059d98056428042808055 
EZ 1980 DATA 4e558080564bd54dd5ceced54d 
WQ 1990 DATA d54c0004090b0cl0100c0b090e 
UL 2000 DATA 0c0Cl0090bl014191b2005090b 
EF 2010 DATA 0d0el2120e0d0bl00e0el20b0d 
RX 2020 DATA 15191c212328130dl60f140fle 
JK 2030 DATA 0fIc091c0f1417160al3340909 
FE 2040 DATA 001dlclcl91alela000bl7232e 
UU 2050 DATA 4249570bl7232e42495765783e 
SM 2060 DATA 01a0e002el020090 


Dariusz Rzepka 



Zgodnie z obietnicą zawartą w pierwszym odcinku poświęco¬ 
nym systemowej procedurze CIO, poniższy artykuł wyjaśni 
działanie operacji transmisji danych (odczytu oraz zapisu), 
a także opisze wywołanie procedur STATUS oraz operacji spe¬ 
cjalnych (SPECIAL) użytkownika 

• Początek procedury STATUS lub SPECIAL 

Sprawdź czy IOCB jest zamknięty 
E597 LDA ICHIDZ 
E599 CMP #$FF 
E59B BNE E5A2 

Wywołanie procedury obsługi podanej 
nazwy urządzenia; powrót z ustawionym 
znacznikiem Carry oznacza błąd 
E59D JSR E6FF 
E5A0 BCS E547 

Ustal adres procedury użytkownika 
obsługującej operację STATUS lub SPECIAL 
E5A2 JSR E695 

Wywołaj procedurę STATUS lub SPECIAL użytkownika 

E5A5 JSR E6EA 

Ustaw stary status IOCB 

E5A8 LDX ICAX5Z 

E5AA LDA IOCB,X 

E5AD STA ICHIDZ 

Procedura zakończenia obsługi JOCB-u 
E5AF JMP E672 

Jak wynika z powyższej procedury, operacje STATUS oraz 
SPECIAL (dla stacji dysków na przykład kasowanie pliku, 
zmiana Jego nazwy, formatowanie dysku ltp) nie wymagają 
wcześniejszego otwarcia kanału we/wy Jeżeli operacja tego ty¬ 
pu miała miejsce poprzez zamknięty IOCB, to jej wykonanie nie 
spowoduje otwarcia kanału, a tym samym nie wymaga później¬ 
szego wykonania operacji zamknięcia IOCB-u Wywołanie pro 
cedury SPECIAL lub STATUS poprzez otwarty kanał we/wy nie 
spowoduje Jego zamknięcia. Oto przykład wykorzystania opera¬ 
cji SPECIAL do skasowania pliku FILENAME.EXT zapisanego 
na dyskietce umieszczonej w stacji numer 2 (wartości etykiet 
patrz poprzedni numer TA): 

RENAME EQU $20 
DELETE EQU $21 

LDX łlCBNUM 
LDA #DELETE 
STA ICCOM,X 
LDA <DEVICE 
STA ICBAL,X 
LDA >DEVICE 
STA ICBAH,X 
JMP CIOVEC 

DEVICE DTA C' D2 : FILENAME .EXT',B( $9B) 

• Początek procedury czytania danych (GET BYTE) 

Sprawdź, czy właściwa komenda odczytu 
E5B2 LDA ICCOMZ 
E5B4 AND ICAX1Z 
E5B6 BNE E5BD 

Błąd: odczyt z kanału we/wy otwartego do 
zapisu jest niemożliwy 
E5B8 LDY #$83 
E5BA JMP E670 

Ustal adres procedury użytkownika 
obsługującej operację GET BYTE; powrót 
z ustawionym znacznikiem Carry oznacza 
błąd 

E5BD JSR E695 
E5C0 BCS E5BA 

Sprawdź, czy przesłać tylko 1 bajt 
E5C2 LDA ICBŁLZ 
E5C4 ORA ICBLHZ 






E5C6 BNE E5D0 

Jeśli długość bufora jest równa 0, 
to prztransmituj tylko 1 bajt; w ten sposób 
można przesyłać dane bez użycia pamięci 
(jedynie przy pomocy rejestru A) 

Wywołaj procedurę GET BYTE użytkownika 
E5C8 JSR E6EA 

Zapamiętaj otrzymaną daną (bajt należy 
przesyłać przez rejestr A) 

E5CB STA ICAX6Z 

Procedura zakończenia obsługi IOCB-u 
E5CD JMP E672 

Początek pętli czytania danych; 

wywołaj procedurę GET BYTE użytkownika 

E5D0 JSR E6EA 

Zapamiętaj otrzymaną daną 

E5D3 STA ICAX6Z 

Jeżeli wystąpił błąd, to zakończ operację 
E5D5 BMIE618 

Uzyskany z urządzenia zewnętrznego bajt 
zapamiętaj pod żądanym przez programistę adresem 
E5D7 LDY #0 
E5D9 STA (ICBALZ),Y 

Zwiększ o 1 adres przesyłanego bajtu 
E5DB JSR E6D1 

Sprawdź, czy komendą jest odczyt aż do 
napotkania znaku końca linii (EOLN=$9B) 

E5DE LDA ICCOMZ 
E5E0 AND #$02 
E5E2 BNE E5F0 

Czy przesłanym bajtem jest znak końca linii 
E5E4 LDA ICAX6Z 
E5E6 CMP #$9B 
E5E8 BNE E5F0 

Zmniejsz o 1 liczbę przesyłanych danych 
E5EA JSR E6BB 

Zakończ operację czytania linii (GET LINĘ) 

E5ED JMP E618 

Zmniejsz o 1 liczbę przesyłanych danych 
E5F0 JSR E6BB 

Jeśli nie przesłano wszystkich danych, 
to czytaj następny bajt danych 
E5F3 BNE E5D0 

Cały bufor został jut wypełniony; 

sprawdź, czy komendą jest odczyt aż do 

napotkania znaku końca linii 

E5F5 LDA ICCOMZ 

E5F7 AND #$02 

E5F9 BNE E618 

Odczytaj dane linii nie mieszczące się w buforze; 
wywołaj procedurę GET BYTE użytkownika 
E5FB JSR E6EA 
E5FE STA ICAX6Z 

Jeżeli wystąpił błąd, to wyjdź z pętli 
E600 BMI E60C 

Czytaj dotąd dane aż napotkasz znak końca linii 
E602 LDA ICAX6Z 
E604 CMP #$9B 
E606 BNE E5FB 

Ustaw status operacji na błąd: próba odczytu 
linii o większej długości niż dozwolona 
E608 LDA #$89 
E60A STA ICSTAZ 

Zmniejsz o 1 adres przesyłanych danych 
E60C JSR E6C8 

Ostatni bajt bufora ustaw na znak końca linii 

E60F LDY #0 

E611 LDA #$9B 

E613 STA (ICBALZ),Y 

Zwiększ o 1 adres przesyłanego bajtu 
E615 JSR E6D1 

Ustal liczbę otrzymanych danych 
E618 JSR E6D8 

Procedura zakończenia obsługi IOCB-u 
E61B JMP E672 

Pracowitym programistom polecam koniec niniejszego odcin¬ 
ka o CIO, gdzie zgodnie z obietnicą znajdą radę, Jak przysple 
szyć transmisję danych przez CIO Dla tych praktycznych poda¬ 
ję wersję gotowej do wywołania procedury IOCBGET czytającej 
dane przez CIO (wartości etykiet patrz poprzedni numer TA)- 

GET_LINE EQU 5 czytaj linię 

GET BYTE EQU 7 czytaj do wypełnienia bufora 
ADDRESS EQU $600 adres umieszczenia danych 
LENGTH EQU $100 maksymalna długość bufora 

IOCB GET EQU * 


LDA #GET_BYTE może być GET_LINE 

STA ICCOM,X 

LDA <ADDRESS 

STA ICBAL,X 

LDA »ADDRESS 

STA ICBAH,X 

LDA CLENGTH 

STA ICBLL,X 

LDA >LENGTH 

STA ICBLH,X 

JMP CIOVEC 

Przykładem wykorzystania procedury GET BYTE może być 
porównanie sekwencji naciśniętych klawiszy z wzorcowym 
ciągiem znaków, na przykład z hasłem, które zabezpiecza 
program przed uruchomieniem przez niepowołane osoby 
Wykonujemy procedurę IOCB OPEN opisaną w poprzednim 
numerze TA z parametrami. ICBNUM=S10, OPERAT=RE- 
AD, DEVICE—'K.\ Następnie wywołujemy procedurę 
IOCB GET, ustawiając parametry ICBNUM - bez zmian, 
LENGTH-O, ADDRESS - nieistotny, bo dane będą przesyła 
ne przez rejestr A z pominięciem pamięci komputera Na 
końcu wykonujemy operację IOCBCLOSE z poprzedniego 
numeru TA Powrót z procedury PASSWORD ze zgaszonym 
znacznikiem Carry oznacza wpisanie właściwego hasła- 

ICBNUM EQU $10 
OPERAT EQU READ (4) 

LENGTH EQU 0 
EOLN EQU $9B 

PASSWORD EQU * 

LDX #ICBNUM 
JSR IOCB_OPEN 

BMI FAIL otwarcie IOCB-u zakończyło się 

niepomyślnie 

LOOP JSR IOCB_GET 

BMI FAIL błąd odczytu z klawiatury 
LDY PATTERN 
BNE CHECK 

CMP #EOLN naciśnięto RETURN 
BNE LOOP 

FAIL JSR IOCB_CLOSE 
SEC niewłaściewe hasło 
RTS 

CHECK CMP PATTERN,Y A-wpisana dana 
BNE HACK 
INC PATTERN 

CMP #EOLN koniec hasła 

BNE LOOP 

JSR IOCB_CLOSE 

CLC poprawne hasło 

RTS 

HACK LDA #0 
STA PATTERN 

BEQ LOOP skok bezwzględny 

PATTERN DTA B(1),C* TAJEMNICE ATARI',B(EOLN) 
DEVICE DTA C’K:' 

• Początek operacji zapisu danych (PUT BYTE) 

Sprawdź, czy właściwa komenda zapisu 
E61E LDA ICCOMZ 
E620 AND ICAX1Z 
E622 BNE E629 

Błąd: zapis przez kanał we/wy otwarty do 
odczytu jest niemożliwy 
E624 LDY #$87 
E626 JMP E670 

Ustal adres procedury użytkownika 
obsługującej operację PUT BYTE; powrót 
z ustawionym znacznikiem Carry oznacza 
błąd 

E629 JSR E695 
E62C BCS E626 

Sprawdź, czy przesłać tylko 1 bajt 

E62E LDA ICBLLZ 

E6 30 ORA ICBLHZ 

E632 BNE E63A 

Wyślij tę jedną daną 

E634 LDA ICAX6Z 

E636 INC ICBLLZ 

E638 BNE E640 skok bezwzględny 
Pętla wysyłania danych do urządzenia 
zewnętrznego 

Załaduj bajt przeznaczony do przesłania 


LDX #ICBNUM 



E63A LDY #0 

E63C LDA (ICBALZ),Y 

E63E STA ICAX6Z 

Wywołaj procedurę PUT BYTE 

użytkownrka; powrot 

z ustawionym znacznikiem 

ujemnosci oznacza błąd 

E640 JSR E6EA 

E643 PHP 

Zwrększ o 1 adres przesyłanego 
bajtu 

E644 JSR E6D1 
Zmniejsz o 1 liczbę 
przesyłanych danych 
E647 JSR E6BB 

Odtwórz status wykonanej przez 
użytkownika operacji 
E64A PLP 
E64B BMI E66A 

Sprawdź, czy przesyłać dane do 
napotkania znaku końca linii 
(PUT LINĘ) 

E64D LDA ICCOMZ 

E64F AND #$02 

E651 BNE E659 

Czy to jest koniec linii? 

E653 LDA ICAX6Z 

E655 CMP #$9B 

E657 BEQ E66A 

Sprawdź, czy przesłano 

wszystkie dane 

E659 LDA ICBLLZ 

E65B ORA ICBLHZ 

E65D BNE E63A 

Jeśli wysłano cały bufor, 

a operacją jest PUT LINĘ i nie 

napotkano znaku EOLN, to wyślij 

ten znak końca linii 

E65F LDA ICCOMZ 

E661 AND #$02 

E663 BNE E66A 

E665 LDA #$9B 

Wywołaj procedurę PUT BYTE 

użytkownika 

E667 JSR E6EA 

Ustal liczbę wysłanych danych 
E66A JSR E6D8 

Procedura zakończenia obsługi 
IOCB-u 

E66D JMP E672 

Procedura wysyłająca dane do urzą¬ 
dzenia zewnętrznego może wyglądać tak 

PUT_LINE EQU 9 zapisz linię 
PUT_BYTE EQU 11 zapiszcały bufor 
ADDRESS EQU $600 adres 
pobierania danych 
LENGTH EQU $100 maksymalna 
długość bufora 

IOCB_GET EQU * 

LDX #ICBNUM 

LDA #PUT_BYTE może być PUT_LINE 

STA ICCOM,X 

LDA <ADDRESS 

STA ICBAL, X 

LDA >ADDRESS 

STA ICBAH,X 

LDA <LENGTH 

STA ICBLL,X 

LDA >LENGTH 

STA ICBLH,X 

JMP CIOVEC 

Przykład wykorzystania procedury 
PUT BYTE na ekranie wypisywana jest 
zawartość pamięci o wskazanym adresie 
(ADDRESS) 1 o długości do 256 bajtów 
Znaki są wypisywane w kodzie ATASCII 

ICBNUM EQU $10 
OPERAT EQU WRITE (8) 

LENGTH EQU 0 
BELL EQU $F556 

DISPLAY EQU * 


AS... 


■ w m 


LDX #ICBNUM 
JSR IOCB_OPEN 
BMI QUIT 
LDY #0 
LOOP TYA 
PHA 

LDA ADDRESS,Y 
AND #$7F 
CMP #$1B 
BCC OK 
CMP #$20 
BCC SPEC 
CMP #$7D 
BCC OK 

SPEC LDA #$1B 

JSR IOCB_PUT 

BMI FAIL 

OK PLA 

PHA 

TAY 

LDA ADDRESS,Y 

JSR IOCB_PUT 

BMI FAIL 

PLA 

TAY 

INY 

BNE LOOP 

QUIT JMP IOCB_CLOSE 
FAIL PLA 
JSR BELL 
JMP IOCB_CLOSE 

DEVICE DTA C'E:' 

• Proceduiy wykorzystywane przez CIO 
w operacjach przesyłania danych 

Procedura zmniejszenia 

o 1 liczby przesyłanych danych 

E6BB LDA ICBLLZ 

E6BD BNE E6C1 

E6BF DEC ICBLHZ 

E6C1 DEC ICBLLZ 

E6C3 LDA ICBLLZ 

E6C5 ORA ICBLHZ 

E6C7 RTS 

Procedura zmniejszenia 

o 1 adresu przesyłanych danych 

E6C8 LDA ICBALZ 

E6CA BNE E6CE 

E6CC DEC ICBAHZ 

E6CE DEC ICBALZ 

E6D0 RTS 

Procedura zwiększająca adres 

przesyłanego bajtu 

E6D1 INC ICBALZ 

E6D3 BNE E6D7 

E6D5 INC ICBAHZ 

E6D7 RTS 

Procedura ustalająca liczbę 
przesłanych danych 
E6D8 LDX ICAX5Z 
E6DA SEC 

E6DB LDA ICBLL,X 
E6DE SBC ICBLLZ 
E6E0 STA ICBLLZ 
E6E2 LDA ICBLH,X 
E6ES SBC ICBLHZ 
E6E7 STA ICBLHZ 
E6E9 RTS 

Przykładem wykorzystania jednoczes¬ 
nego czytania 1 zapisywania danych może 
hyc rozwiązanie problemu zakodowania 
danych pliku Załóżmy ze plik 
LIST.TXT zawiera tekst który chcemy 
zaszyfrować Zmieńmy wszystkie dane w 
tym pliku odwracając Ich niektóre bity 
a potem zapiszmy je do Innego pliku na 
przykład LIST.COD. 

ICBNM1 EQU $10 
ICBNM2 EQU $20 
OPEN EQU 3 
CLOSE EQU 12 
GETBYT EQU 7 


PUTBYT EQU 11 
READ EQU 4 
WRITE EQU 8 
EOFFIL EQU 136 

MASK EQU $FF 

BELL EQU $F556 brzęczyk 

Otwórz plik do odczytu 

LDX #ICBNM1 
LDA #OPEN 
STA ICCOM,X 
LDA <SOURCE 
STA ICBAL,X 
LDA >SOURCE 
STA ICBAH,X 
LDA #READ 
STA ICAX1,X 
JSR CIOVEC 
BMI ERROR 

Otwórz plik do zapisu 

LDX #ICBNM2 

LDA #OPEN 

STA ICCOM,X 

LDA <DSTNTN 

STA ICBAL,X 

LDA >DSTNTN 

STA ICBAH,X 

LDA #WRITE 

STA ICAX1,X 

JSR CIOVEC 

BMI ERROR 

Czytaj bajt 

LOOP LDX #ICBNM1 

LDA #GETBYT 

STA ICCOM,X 

LDA #0 

STA ICBLL,X 

STA ICBLH,X 

JSR CIOVEC 

BPL CRRCT 

CPY #EOFFIL 

BEQ ENDLP 

Zadźwięcz gdy błąd 

ERROR JSR BELL 

Zamknij kanały WE/WY 

ENDLP LDX #ICBNM1 

LDA #CLOSE 

STA ICCOM,X 

JSR CIOVEC 

BMI ENDLP 

LDX #ICBNM2 

LDA #CLOSE 

STA ICCOM,X 

JMP CIOVEC 

Zmień bajt 

CRRCT EOR #MASK 

Zapisz bajt 

TAY 

LDX #ICBNM2 
LDA #PUTBYT 
STA ICCOM,X 
LDA #0 
STA ICBLL,X 
STA ICBLH,X 
TYA 

JSR CIOVEC 
BPL LOOP 
BMI ERROR 


Teraz obiecana Informacja dla progra 
mlstów piszących sterowniki urządzeń 
zewnętrznych Jak łatwo zauważyć pro 
cedury transmisji danych (GET BYTE 
1 PUT BYTE) są tak skonstruowane, ze 
sprawdzają określone warunki wywołu 
ją ewentualnie procedurę użytkownika 
przesyłającą 1 bajt 1 krążą w pętli ua 
krualnlając swoje wskaźniki Przeniesie¬ 
nie koniecznych sekwencji rozkazów 
(zmiana adresu transmitowanego bąjtu 
Ilości danych do przesłania) do własnej 
procedury GET lub PUT przyspieszy 
przepływ danych symulując rutynowe 
działania CIO 


Lesław Pasternak 






Artykuł dotyczy procedur obsługi pły¬ 
nących napisów w pierwszej części na¬ 
szego dema Poniżej zamieszczone są 
trzy procedury które należy skompilo¬ 
wać na dysk i zachować oraz dodatkowe 
dwie procedury pomocnicze 

Procedura "HSCROLLASM' realizuje 
przesuw poziomy dwu najmniejszych pły¬ 
nących napisów Oto jej tekst źródłowy 


Procedurę Equ $9DA5 

List_mem Equ %00000110 
List_err Equ %00000101 
Code_mem Equ %00010000 
Code~dsk Equ %00100000 

DList Equ $9800 
HHScrol Equ $0089 
Text Equ $7000 

Opt List_err+Code_dsk 
Org Procedurę 

Jmp InitScrl 


Dec 

Lda 

Cmp 

Bne 

Lda 

Sta 

Inc 

Inc 

Bne 

Inc 

Inc 

Lda 

Cmp 

Bne 

Lda 

Cmp 

Bne 

Lda 

Sta 

Sta 

Lda 

Sta 

Sta 

Rts 


HHScrol 

HHScrol 

#$0B 

L2 

#$0F 

HHScrol 

DList+$28 

DList+$78 

LI 

DLiat+$29 
DLiat+$79 
DLiBt+$28 
#$E0 
L2 

DLiBt+ S 2 9 

#$71 

L2 

<Text 

DLiBt+$28 

DLiBt+$78 

>Text 

DLiBt+$29 

DLiBt+$79 


InitScrl 


Lda #$0F 
Sta HHScrol 
RtE 


Procedura odwołuje się do zamiesz- 
czanych w poprzednich artykułach pro¬ 
cedur "DLI ASM” "DLIV ASM" oraz ko¬ 
rzysta z tekstu umieszczonego w pamięci 
od adresu S7000 Uruchomienie proce¬ 
dury powoduje wykonanie jedynie jej 
fragmentu od etykiety InitScrl - ustawie¬ 
nie zmiennej HHScrol Dla przypomnie¬ 
nia podajemy ze zmienna ta przechowu¬ 
je wartość rejestru Hscrol dla płynących 
napisów i jest przepisywana do Hscrol a 
podczas przerwania Display List Właści¬ 
wy przesuw napisu wykonuje dopiero 
główna część procedury (od etykiety In- 
tProc) która jest wywoływana co 1/50 se¬ 


kundy przez przerwanie Timer’a 2 
W każdym obiegu tego przerwania 
zmniejszana jest wartość HHScrol, co 
powoduje delikatne przesuwanie napi¬ 
sów W przypadku gdy HHScrol osiągnie 
wartość SOB oba napisy trzeba przesu¬ 
nąć zgrubnie poprzez zwiększenie adre¬ 
sów pamięci ekranu w Display List 
1 ustawienie HHScroll'a na początkową 
wartość Gdy tekst się skończy należy 
puścić go od początku 

Druga procedura to 'VSCROLL ASM' 
Obsługuje ona dwa pionowe napisy 
w grafice PMG 


Procedurę Equ $9D49 


List mem 

Equ 

%00000110 

LiBterr 

Equ 

%00000101 

Codę mem 

Equ 

%00010000 

Codę dBk 

Equ 

%00100000 

Pomoc 

Equ 

$0080 

Start pl 

Equ 

$9000 

Text 

Equ 

$6E00 

VText 

Equ 

$0084 

Znak 

Equ 

$9A92 


Opt 

List err+Code dBk 


Org 

Procedurę 


Jmp 

Init Scrl 

IntProc 

Lda 

Licznik 


Bne 

L3 


Ldy 

#$00 


Lda 

(VText),y 


Inc 

VText 


Bne 

LI 


Inc VText+$01 


Ldx 

VText+$01 


Cpx 

#$70 


Bne 

LI 


Ldx 

>Text 


Stx 

VText+$01 

LI 

JBr 

Znak 


Ldy 

#$00 


Ldx 

#$00 

L2 

Lda 

(Pomoc ),y 


Sta 

Start pl+$04A2,x 


Sta 

Iny 

Inx 

Inx 

Start pl+$04A3,x 


Cpy 

#$08 


Bne 

L2 

L3 

Ldx 

#$00 

L4 

Lda Start pl+$0432,x 


Sta 

Start pl+$0431,x 


Sta 

Inx 

Start pl+$0631,x 


Cpx 

#$80 


Bne 

L4 


Inc 

Licznik 


Lda 

Licznik 


Cmp 

#$10 


Bne 

L5 


Lda 

#$00 


Sta 

Licznik 

L5 

RtB 


Init Scrl 

Ldx 

<Text 


Ldy 

>Text 


Stx 

VText 


Sty VText+$01 


Licznik Dta B($00) 

Podobnie jak poprzednia, ta proce¬ 
dura korzysta z tekstu tym razem umie¬ 
szczonego od adresu S6E00 Obszar gra¬ 
li ki PMG wskazywany jest przez etykietę 
Start pl Wykorzystywane są również 
dwubajtowe zmienne umieszczone na 
stronie zerowej Pomoc (zmienna pomoc¬ 
nicza) oraz VText (wskazująca na kolej¬ 
ną literę tekstu) 

Jak poprzednio wywołanie procedury 
inicjuje tylko odpowiednie zmienne 
(VText), Część główna procedury rozpo¬ 
czyna się od etykiety IntProc Na począł 
ku sprawdzana jest wartość Licznika 
(zmienna która przyjmuje wartości od 
S00 do SOf) Jeśli Licznik jest różny od 
zera to wystarczy tylko przepisać dane 
w obszarze pamięci PMG o jeden bajt 
w górę, co spowoduje przesunięcie te¬ 
kstu Gdy Licznik równy jest zero ozna¬ 
cza to ze napis został przesunięty o całą 
literę i trzeba pobrać kolejny znak z te¬ 
kstu (wskazuje na nią zmienna VText) 
l wywołać procedurę Znak ze znakiem 
w akumulatorze Procedura ta zwraca 
w zmiennej Pomoc adres znaku w zesta¬ 
wie znaków 


Procedurę 

Equ 

$9A92 

List mem 

Equ 

%00000110 

List err 

Equ 

%00000101 

Codę mem 

Egu 

%00010000 

Codę dsk 

Equ 

%00100000 

Zestaw 

Equ 

$E000 

Pomoc 

Equ 

$0080 


Opt 

List err+Code^dsk 


Org 

Pha 

Procedurę 


And 

#$60 


Lsr 



Lsr 

e 


Lsr 

e 


Lsr 

@ 


Lsr 

Cle 



Adc 

>Zestaw 


Sta 

Pla 

Pomoc+$01 


And 

#$ 1F 


AbI 

e 


Asi 

@ 


Asi 



Sta 

RtB 

Pomoc 


Powyższa procedura korzysta ze 
standardowego zestawu znaków Atari 
umieszczonego od adresu SE000 Propo¬ 
nujemy skompilowanie wersji te) proce¬ 
dury ze zmienionym adresem zestawu 
znaków na S8C00, gdyż w przyszłości 
w tym miejscu pamięci będzie się znajdo¬ 
wał zestaw znaków ze zdefiniowanymi 
przez nas polskimi literami 

Wróćmy do opisu procedury 
"YSCROLL ASM' Po odnalezieniu adre¬ 
su znaku w zestawie należy przepisać 
wygląd znaku w pamięć PMG 

Ostatnia procedura przesuwu napisu 
w pierwszej części dema to 
BSCROLL ASM" Procedura ta tworzy 
płynący napis o szerokości i wysokości 
ośmiu znaków trybu S02 Antlc'a 

Procedurę Equ $9DE6 
LiBt_mem Equ %00000110 




Liot_err 

Equ #00000101 


Inc Pomoc2 

Code_mem 

Equ *00010000 


Pla 

Code_dok 

Equ *00100000 


Inx 




Cpx #$08 

BHScrol 

Equ $0088 


Bne L6 

BText 

Equ $008$ 



Dli8t 

Equ $9800 


Pla 

Pomoc 

Equ $0080 


Tay 

Pomoc2 

Equ $0082 


Iny 

Scrol2 

Equ $6600 


Cpy #$08 

Text 

Equ $7200 


Bne L3 

Znak 

Equ $9AS2 






Inc BText 


Opt List_err+Code_dBk 


Bne L8 


Org Procedurę 


Inc BText+$01 




Lda BText+$01 


Js«p Init_J3crl 


Crap #$74 




Bne 1.8 

intProe 

Lda BHScrol 


Lda ^-Text 


Hor #$02 


Sta BText+$01 


Sta BHScrol 

L8 

Rto 


Cap #$0F 




Bne L8 

Init_ 

JScrl Ldx <Text 




Ldy >Text 


Ldx ł$15 


Stx BText 

Ll 

Inc 01iet+$7D,x 


Sty BText+$01 


Dex 


Lda #$0F 


pex 1 ■ 


Sta BHScrol 


Oex 9 


Rto 


Bpi Ll 





Tab 

Dta B($00) # B(! 


Lda Dliet+$7D 


Dta B($A8) ,B(! 


Cmp |$08 


Dta B($50) f B(! 


Bne L8 


■ 


L2 


Ł3 


L4 


L5 


L7 


r 


i 


ia* #$i5 

Ldy #$07 

Lda Tab,y 

Sta Dliet+S7D,x 

Dex 

DOX 

n«x 

Dey 

Bpi L2 

Ldx <Scrol2 
Ldy >Scrol2 
Stx Posioc2 
Sty Foitioc2+$01 
Ldy #$00 
Lda (BT«xt),y 
Jer Znak 

Łdy t$00 
Tya 
Pb a 

Ida (Pomoc) r y 
Pha 

Idx ł$ZP 
idy #$08 
Ida (PoinocZ) ,y 
Łdy ł$00 
Sta (Poooc2),y 
Inc Posaoc2 
Bne L5 

Inc Poruoc2+$01 

Dex 
Bpi Ł4 

Pla 

Ldx l$00 
Ldy ł$00 
Asi ę 
Bcc L7 
Ldy #$03 
Pha 
Tya 

Ldy ł$00 
Sta (Pomoc2),y 



"BSCROLL. ASM” wykorzystuje zmien¬ 
ną BHScroll, przechowującą wartość 
HScrofa tego napisu {podobnie Jak 
w procedurze HHScroll) oraz znane pro- 
jry Dllst i Znak Dwubajtowa zmien¬ 
na BText wskazuje na kolejny znak te¬ 
kstu, której -początek wskazuje stała 
Text (87200). Stała Scrol2 określa adres 
początku pamięci ekranu dla pierwszej 
linii płynącego napisu 

1T* 

m Po uruchomieniu procedury inicjowa¬ 
ne 8ą wartości zmiennych BText 
1 BHScrol. W łwdym obiegu przerwania 
wykonuje się gtóyma ęść procedury 
i ^ ( od etykiety IntProc), Na początku mody¬ 
fikujemy wartość BHScrol a, co powodu¬ 
je delikatny przesuw tekstu. Gdy 
BHScrol oslągnl wartość SOF, robiony 
Jest zgrubny przesuw kolejnych linii 
ekranu (pętla LI) Gdy przesunięcie 
zgrubne zostanie wykonane osiem razy, 
to najpierw przywracane są początkowe 
wartości adresów kolejnych Unii pamięci 
ekranu (pętla L2) na podstawie tabeli 
Tab zawierającej młodsze bajty tych ad¬ 
resów Potem zmienna Pomoc2 przyjmu 
je wartość stałej Scrol2 1 pobierany jest 
następny znak z tekstu Rozpoczyna się 
główna pętla (etykieta L3) Instrukcje 
w niej zawarte wykonywane są osiem ra¬ 
zy. W trakcie każdego obiegu tę) pętli 
modyfikowana jest kolejna linia ekranu. 


Zamawiam nagrane na 



skr. poczt 66 
35-959 Rzeszów 2 


kasecie 

dysku 


programy 
w_ 


zamieszczone 
numerze TA 


moj adres; 


Pobierany Jest każdy bajt wyglądu znaku 
1 odkładany na stos Potem w wewnętrz¬ 
nej pętli L4 przesuwane są kolejne bajty 
pamięci ekranu o osiem w lewo, co daje 
przesunięcie części dużej litery o Jeden 
znak W następnej pętli wewnętrzę) (ety¬ 
kieta L6) bajt pobrany ze stosu rozkłada¬ 
ny Jest na bity 1 w ten sposób tworzony 
jest wygląd części kolęjnego dużego zna¬ 
ku. Jeśli bit znaku Jest ustawiony, to 
W pamięć ekranu wpisywana jest wartość 
803, w przeciwnym wypadku - zero Każ 
da część dużego znaku zawiera się 
w jednej linii ekranu, czyli operacja prze¬ 
sunięcia 1 tworzenia nowego znaku jest 
wykonywana odrębnie dla każdej Unii 
Gdy tekst się skończy, to zmienna BText 
przyjmuje początkową wartość. 

Na zakończenie tęgo artykułu prezen¬ 
tujemy program który pozwala oglądnąć 
efekty dotychczasowej pracy Program 
należy nagrać na dysk 1 skompilować 
Aby uruchomić całość, należy załadować 
zbiory DLI OBJ, DLIVOBJ, PLAY¬ 
ER OBJ ZNAK OBJ, BSCROLL OBJ. 
HSCROLL OBJ VSCROLL OBJ, 

RUNI OBJ 1 zbiór z tekstem z poprze¬ 
dniego artykułu utworzony przy pomocy 
Zgrywusa "Mlnl-Demo" uruchamia się 
zleceniem RUN 600 

Procedurę Equ $0600 

Li8t_mem Equ %00000110 
LiGt_err Equ %00000101 
Code_mein Equ %00010000 
Code_d8k Equ %00100000 

Cdtma2 Equ $0228 
Cdtmv2 Equ $021A 

BScroll Bqu $9DE6 
Dli Bqu $9800 

Dliv Equ $9897 

HScroll Eqtl $9DA5 
Player Equ $9B5B 
VScroll Equ $9D49 

Opt Liot_err+Code_dok 
Org Procedurę 

Jer Dli 
Jor Dliv 
Jor Player 
Jor BScroll 
J8r HScroll 
Jor VScroll 
Ldx <Timer_2 
Ldy >Timer_2 
Stx Cdtma2 
Sty Cdtma2+$01 
Koniec Lda #$01 

Sta Cdtm.v2 
Rto 

Timer_2 Lda Licznik 
Eor #$01 
Sta Licznik 
Bne LI 

Jor Player+$03 
Ll J8r HScroll+$03 

Jor VSero11+$03 
J8r BScroll+$03 
Jmp Koniec 

Licznik Dta B($00) 

End of File 

Program Inicjuje wszystkie procedury 
oraz przerwanie Tlmer'a 2, w którym wy¬ 
woływane są kolejno procedury płyną¬ 
cych napisów 1 - co drugi obieg prze¬ 
rwania - procedurę "PLAYER ASM” 


To mas Bielak 
Rafał Bielecki 













REDAKCJA NIE PONOSI ODPOWIEDZIALNOŚCI Zf TP^I* 7AMI*”'™*™™ KOSZEŃ. 



Ceny ogłoszeń ramkowych w TA: 

• 1 cm 2 12 000 

• Cala strona 6 min + 100% za kolor 

• Ostatnia strona (kolor) 15 min 

Ogłoszenia drobne: 

• każde słowo 5 000 


Klub "ATAKMAN" nie istnieje Byt to kawał moich nieznoś¬ 
nych kolegow ( ) Proszę o nieumleszczanie informacji w TA 
o klubie ATARMAN". ponieważ ja nie założyłem żadnego klu¬ 
bu. Bardzo przepraszam za moich nieznośnych kolegow 

Tomek Kasprowicz 

Od redakcji 0| nieładnie panowie nieładnie 1 Ogłoszenie Już 
poszło 1 nlr się nie da zrobić ale uważamy ze ten dowelp nie 
był zabawny 


PrenumeraTA 


Liczba egzemplarzy 
każdego numeru 

cena 1 
egzemplarza 

3-mies. 

6 -mles. 

n= 1 

12900 

38700 

77400 "j 

n=2 

12200 

73200 

146400 i 

n=3 

11600 

99900 

199800 

n=4 

11100 

133200 

266400 

n=5 do 9 

10600 

31800*n 

63600*n 

n= 10 lub więcej 

9800 

29400*n 

58800*n 


W celu zamówienia prenumeraty należy wypełnić czytelnie 
blankiet wpłaty na konto (dostępny na pocztach 1 w ban¬ 
kach) podając na odwrocie Imię nazwisko 1 adres zamawia¬ 
jącego oraz liczbę egzemplarzy danego numeru wraz z okre¬ 
sem prenumeraty Pieniądze prosimy wpłacać na konto 

"Tajemnice Atari” s.c. Rzeszów, ul. Targowa 1/801 
Bank Przemysłowo-Handlowy III Oddział Rzeszów 
nr 326807-23650-136 


Laboratorium Komputerowe 
AVALON zaprasza do współpracy 
wszystkich programistów - autorow 
gier i programów użytkowych dla 
komputerów ATARI XL/XE i ST, 
C-64, Amiga, IBM PC. Jeśli 
uważasz, że Twój program nadaje 
się do wydania - skontaktuj się 
z nami: 


L.K. AVALON 
ul. Targowa 1/1104, 
35-064 Rzeszów, 
tel. 62-74-71 wewn. 274, 275 


Zapewniamy bardzo korzystne 
warunki finansowe! 


Redakcja Tajemnic ATARI informuje 

że posiada Jeszcze pewną liczbę egzem¬ 
plarzy archiwalnych czasopisma Można 
Je nabywać wysyłkowo wpłacając pienią¬ 
dze podobnie. Jak przy prenumeracie 
l przekazem bankowym na konto podane 
wyżej). Oto wykaz dostępnych numerów 
wraz z cenami 


TA 5/92 

Cena: 9 900 zł 

TA 6-7/92 

Cena: 13 900 zł 

TA 8/92 

Cena: 9 900 zł 

TA 9/92 

Cena: 12 500 zł 

TA 10/92 

Cena: 12 500 zł 

TA II-12/92 

Cena: 13 900 zł 

TA 1-2/93 

Cena: 12 000 zł 

TA 3/93 

Cena: 12 000 zł 

TA 4/93 

Cena: 12 OOO zł 

TA 5/93 

Cena: 13 500 zł 


Kutrzeba Mariusz 33-210 Olesno COLUMBO - gra kryminalna 50 tys 
QU1Z VIDEO - zgadywanka z aktorami 50 tys 
REMBRANT VIRUS - super wirus 50 tys 
SUPER MATEMATYKA oblicz zadań 60 tys 
SUPER JASNOWIDZ - Jasnowidz kontakt listowy 250 tys 
ATARI XL/XE 


ATARI, COMMODORE, IBM 

— Komputery oprogramowanie oryginalne 1 licencjonowane, osprzęt do¬ 
datkowy 

— Sprzedaż, serwis porady fachowe 

— Modernizacje sprzętu Turbo do ATARI 

— Tanie drukarki 9-lgłowe Juz od 1950 tys (polskie znaki w stand 
ardzle Mazovil Latln 2) 

oferują: 

• Kraków ul Blezanowska 1 'Blt-Plus" 

ul Wielicka 57 "PLUS" 
tal/fax 56-01-17 

• Rzeszów ul Rejtana 33 Bajt" (DH "Sezam”) 

tel 65-48-82 

• Jasło ul Rynek 14 "Karpaty 1 

• Nowy Sącz ul Szwedzka 1 *VEGA" (w podwórku) 


Redakcja Tajemnic Atari informuje o możliwości wysyłkowego nabywania 
wszystkich programów zawartych w dowolnym numerze pisma nagranych na kasetę 
(tylko w transmisji normalnej) lub na dyskietkę W skład zbioru wchodzą wszystkie 
listingi, zamieszczone w wybranym przez Zamawiającego numerze Tajemnic 

Cena wersji kasetowej a także dyskowej wynosi 30 000 zł W cenę wliczony 
jest koszt nośnika nagrania opakowania oraz opłaty pocztowe Same listingi 
są za darmo 

Zainteresowanych ofertą prosimy o dokładne wypełnienie zamówienia Ina od¬ 
wrocie) 1 po naklejeniu go na kartę pocztową wysłanie na adres redakcji po¬ 
dany w stopce 

Uwaga! Prosimy o nieprzysyłanle wcześniej należności będzie ona bowiem re¬ 
gulowana przy odbiorze przesyłki 










































tak amino equ 






Ida #$99 
sta ammc_cou 
■jmp cls_take 


tak_£uel equ * 


Ida #$99 
sta fuel cou 
Ida #$19 
sta fuel_cou+l 
jrnp cls_take 


tak_bonu egu * 


Ida #$50 
jsr inc_scor 


Po przepisaniu programu z dzisiejsze¬ 
go odcinka można będzie Juz zagrać 
w naszą grę Pozostały tylko procedury 
zbierania przedmiotów I sprawdzania 
zderzeń, zliczanie i wyświetlanie pun¬ 
któw paliwa i amunicji oraz procedura 
wytwarzająca efekty dźwiękowe 

Procedura TAKE odpowiedzialna Jest 
za zbieranie przedmiotów I zderzenia lu¬ 
dzika z helikopterami Zderzenia spraw¬ 
dzane są dwukrotnie, najpierw z głową, 
a później z nogami ludzika. I tu należy 
się kilka słów wyjaśnienia. Spotykałem 
się niejednokrotnie z programami w któ¬ 
rych programista tylko raz obliczał adres 
obiektu na ekranie a później według te¬ 
go Jednego adresu sprawdzał zderzenia 
z innymi obiektami umieszczonymi 
"pod" lub obok niego. Jest to Jednak 
błędne gdyż w taki sposób zderzenia 
sprawdzane są zgrubnie" i może się zda¬ 
rzyć, ze zostaną wykryte przed faktycz¬ 
nym zetknięciem się z obiektem Należy 
więc tak |ak w naszym przykładzie obli¬ 
czać adres każdego sprawdzanego pun¬ 
ktu. Dla niewiernych powiem że taki 
sposób zastosowany był w grach “Misja", 
"Fred", "Dfgl Duck" czy "Spy Master" 

W naszym przykładzie procedura TAKE 
dwukrotnie wywołuje procedurę 
CHKTAKE. która po obliczeniu adresu 
punktu na ekranie sprawdza Jego zde¬ 
rzenia z paliwem amunicją, premią pun¬ 
ktową 1 helikopterami. Z tymi ostatnimi 
Jest pewien problem, gdyż są wyświetlane 
na sześciu fazach, a śmiertelne powinno 
być zetknięcie z każdą z nich. 

Procedura RESULT zajmuje się wy¬ 
świetlaniem liczników 1 sprawdzaniem, ■ 
czy został pobity rekord I czy graczowi 
nie brakło paliwa Wszystkie liczniki wy¬ 
korzystują tryb "dziesiętny" procesora, ■ 
co oznacza ze w jednym bajcie można 
umieścić dwie cyfry od 0 do 9 Wy wici 
laniem liczb w takim formacie zajmul 
się dwie proeedurkl SHWjftiG 
i SHW CPH z których pierwsza kituyJ 
krotnie wywoływana Jest z p 1 idprgjfTam 
RESULT Procedury TAKŁJ RB »Ubi 
sygnalizują prugr/DOWt ,'-ówjV n u 
w zmiennej DEAT^^ze graęz zśkończył 
swój żywoL, VtV. 
k rtości powoduje 

Proc dura SOU Bł 

je '>}»>' - ■' • 

ścl do k 

SOUND3 spowoduje 
wlednlego efektu dźwiękowego 


OVR to oczywiście 
koniec gry ko wy i wizualny efekt 

wybuchu, a pojem powrót na planszę ty¬ 
tułową 

Na tym zakończyliśmy pisanie naszej 
gry lecz myślę że cykl będzie kontynuo¬ 
wany Wszystko zalezy od Was 

inf zero equ $2c 


audfl 

audcl 


equ $d200 
equ $d201 


procedura zbierania 
paliwa, amunicji i 
punktów, a także 
sprawdzania zderzeń 
z helikopterami 


take 


equ 


Ida y_plr 
clc 
adc #2 

]sr chk_take 
Ida y_plr 

clc 

adc #13 

chk_take equBB 

ldx <screen+S 
stx adrl 
ldx >screen+5 
stx adrł+1 
Isr « 
lsr 8 
Isr @ 
lsr § 
tax 

take/1 equ 

dex 

bmi take_2 
Idy #adrl 
' Ida * sewidth 
jsr iiiad 
jmp take 


akę 2 


Idy H 
Ida {adr i *,y 

emp omroc 
beq tak_ammc 
c» i #£uel 
tt-q ak_£ueł 
l*p ffeoSkj 




* skasowanie zebranego 

* przedmiotu 

cis take equ * 

Ida #space 

]sr shw adr 
Ida #100 
sta sound3 
rts 

* wyświetlenie 

* stanu gry 


result 


egu 


* sprawdzenre, czy 

* pobito rekord 

Ida score 
emp high 
Ida score+1 
sbc high+1 
bec no_high 
Ida score 
sta high 
Ida score+1 
sta high+1 

no_high equ * 

* sprawdzenie, czy 

* jest jeszcze paliwo 

ldX #255 
Ida £uel_cou 
ora £uel_cou+l 
beq out_fuel 

ldx death 
sed 

Ida fuel_cou 
sec 




take 3 


rts 


stx fieath 

Idy #$04 
Ida sćore+1 
jsr shw_dig 
Ida score 
jsr shw__dig 

Idy #$14 
Ida high+1 
jsr shw dig 
Ida higTT 
jsr shw_dig 

Idy #$24 
Ida fuel cou+1 
jsr shwjćfig 
Ida fueT cou __ 
itr shy 3j,g 




Idy #$34 
Ida airano_cou 

* wyświetlenie 

* liczby dwucyfrowej 

shw_dig egu * 


no_3sou equ * 
rts 

* wyciszenie dźwięku 
silence equ * 


pha 


Idy #7 

lsr 


Ida #0 

Isr 

§ 

sta audfl,y 

lsr 

e 

dey 

lsr 

@ 

bpi *-4 

lsr 

pla 

shw_cph 

rts 

* zakończenie gry 

* wyświetlenie cyfry 

gamę ovr equ * 

shw cph equ * 

jsr silence 

and 

#$0f 


asl 

clc 

i 

* efekt wybuchu 

adc 

#inf zero 

Idy #15 

jsr 

shw info 


iny 

iny 


expl 1 equ * 

rts 


Ida clock 
clc 

* procedura obsługi 

adc #2 

* dźwięku 

cmp clock 
bne *-2 

sounds egu * 

sty audcl 
tya 

Ida 

soundl 

clc 

beq 

no lsou 

adc #100 

sta 

audcl 

sta audfl 

clc 


sty colpm0 

adc 

#200 

tya 

sta 

audf 1 

lsr @ 

dec 

soundl 

sta colpm0+l 

bne 

no lsou 

dey 

Ida 

#0 

bpi expl_l 

sta 

audcl 

]sr silence 

sta 

audf 1 

]mp gme strt 

no lsou egu * 

sound3 dta b(0) 



high dta a(0) 

Ida 

sound2 


beq 

no 2sou 

P.S. Do poprzednich odcinków 

ora 

#%01000000 

wkradło się kilka błędów 

sta 

Ida 

audcl+2 

#10 

a właściwie braków Niestety 

sta 

audf1+2 

z mq|ę| winy Serdecznie prze¬ 

dec 

sound2 

praszam 1 obiecuję poprawę 

bne 

no 2sou 

A oto errata: 

Ida 

#0 


sta 

audcl+2 

W odcinku 1 w linii po ko¬ 

sta 

audf1+2 

mentarzu * wyzerowanie 

zmiennych i Instrukcji Idy 

no ł sou equ “ 

#0 zabrakło Instrukcji tya 

Ida 

sound3 

W odrinku 2 zabrakło na 

beq 

no 3sou 

końcu programu Instrukcji 

adc 

#10 

y_plr dta b(0) 

sta 

audf1+4 

przesuw dta b(0) 

Ida 

#230 

W odcinku 3 zabrakło na 

sta 

audcl+4 

Ida 

sound3 

końcu programu instrukcji 

sec 


score dta a(0) 

sbc 

#5 

soundl dta b(0) 

sta 

sound3 

sound2 dta b(0) 

bne 

no 3sou 

sta 

audcl+4 

lstr dta b(0) 

sta 

audf1+4 

Dariusz "De JET' Żołna 


A oto gotowy program nasze] gry w Ibrmacle Zgrywusa+ 
Zabawę można zacząć po połączeniu tego pliku z zestawem 
znaków, drukowanym w TA 3/93 


IJ 1000 REM *-’ 

NZ 1002 REM : HELI.OBJ 

VB 1004 REM : autor: Dariusz Zolna 

YY 1006 REM : (c) 1992 Tajemnice ATARI 

JP 1008 REM *-’ 

GJ 1010 DATA ffff00a0b2a5208ca04c60a0a0 
JC 1020 DATA 0098998balc8c00e90f8a9048d 


QI 1030 DATA C002a9028dcl02a9998d8dal8d 
WV 1040 DATA 8bala9198d8cala9ff8dfC02a5 
AW 1050 DATA 14c514f0fca900854de6b9adfc 
VZ 1060 DATA 02c91cd0034ceda020fcal20a4 
XG 1070 DATA a22003a3205da3203aa420a5a4 
XH 1080 DATA 2026a5ad8ealf0d04c8aa52044 
XK 1090 DATA al2054al20f3a2ad8402f0fba9 
VN 1100 DATA ff8dfC02adfC02c91cd0034ced 
HY 1110 DATA a0ad8402 f007adlfd0c906d0ea 
PG 1120 DATA 4c06a0200eala9c08d0ed4a903 
WP 1130 DATA 8dldd0a004a9009908d08810fa 
GO 1140 DATA a9a88d07d4a9408d00d08d01d0 
UQ 1150 DATA a9008d08d2a9038d0fd2207fa5 
FT 1160 DATA a000a92a2079alc8c8c06090f5 
EX 1170 DATA a94085b8a000a5b82079alc8c8 
CR 1180 DATA a9482079ala5b818690285b898 
ZA 1190 DATA 18690ea8c03290e460a514c514 
GN 1200 DATA f0fc200eala9408d0ed4a007a9 
VD 1210 DATA 009900d08810fa207fa5a9ff8d 
WN 1220 DATA fC0260a000a200bd99al85b0bd 
ZV 1230 DATA 9aal85blblb048bd9bal91b068 
LK 1240 DATA 9d9bale8e8e8e02790e36048d8 
KY 1250 DATA ad0bd4290449041869b48d0ad4 
SO 1260 DATA 8d09d46840a0009848a9002082 
JU 1270 DATA al68a8c8c8d0f360a011981869 
LY 1280 DATA 4a9992a88810f6a0159818695c 
UQ 1290 DATA 99b3a88810f6a00e9818697299 
KE 1300 DATA dca88810f6609900a809019901 
CB 1310 DATA a8609940a809019941a8600000 
YL 1320 DATA 0000000000000000000000002f 
DC 1330 DATA 023d3002c03102al0002300102 
FG 1340 DATA alc40202c50204c6020ac70206 
SD 1350 DATA c80200c00204cl02026f023170 
RF 1360 DATA 70f0d440a8d440a8d464a8d464 
YV 1370 DATA a6d466a8d488a8d4aca8d4aca8 
ZB 1380 DATA d4d0a8d4d0a8d4f4a8d4f4a8d4 
WN 1390 DATA 18a9d418a9c400a8c400a6c420 
RW 1400 DATA a8c420a641c0alce97alad97al 
XL 1410 DATA 8d04d430034c8ba2a9038d97al 
AQ 1420 DATA 8d04d4a94065b085b2a9a665bl 
OC 1430 DATA 85b3e6b2d002e6b3a206a000bl 
OK 1440 DATA b291b0c8c02390f7a90091b0a0 
HZ 1450 DATA b0a924208ca2a0b2a924208ca2 
CP 1460 DATA cal0e0ad0ad2c932b03ea90885 
MW 1470 DATA b8ad0ad2c932b00829030al869 
IR 1480 DATA 0285b8a96185b0a9a885blad0a 
IV 1490 DATA d22907aaca300aa0b0a924208c 
SD 1500 DATA a24c6ea2a000blb0c8c811b0d0 
PQ 1510 DATA 0688a5b64c9ca2601879000099 
VT 1520 DATA 0000a9007901009901006091b0 
MJ 1530 DATA c8090191b060ac92ala20fa900 
OL 1540 DATA 9920ac9920adc8cal0f6ac92al 
NG 1550 DATA ad78022901d005c000f00188ad 
LZ 1560 DATA 78022902d005c060b001c88c92 
DU 1570 DATA ala5b929030a0a0a0aaaa90f85 
DN 1580 DATA b8bdl0b59920acbdl0b99920ad 
CL 1590 DATA c8e8c6b610ee60a000989900ab 
EL 1600 DATA 9900ac9900adc8d0f460ad8402 
PS 1610 DATA d04ead98alf049ad8dalf044a9 
PB 1620 DATA 4385b0a9a885blad92all86906 
VL 1630 DATA 4a4a4a4aaaca300aa0b0a92420 
AG 1640 DATA 8ca24c25a3a000blb0c811b029 
XK 1650 DATA fec900d017a000a920209ca2f8 
GB 1660 DATA ad8dal38e9018d8dald8a9058d 
EK 1670 DATA 96alad84028d98al60a00084b7 
SC 1680 DATA b940a8c9089024c922b020a200 
SQ 1690 DATA ddl3a4f007e8e00d90f6b0128a 
JH 1700 DATA 0aaabd20a48d8aa3bd21a48d8b 
GF 1710 DATA a3209ba3a4b7c8c0fc90cc60a5 
JB 1720 DATA b92901f00160b940a81869024c 
MG 1730 DATA 82ala9084c82ala9002082alc8 
XH 1740 DATA c898a206dd0ca4f026cal0f8b9 
VL 1750 DATA 40a8c902f022c904f01ec906f0 
XJ 1760 DATA Iac914f01638e908c90c900a88 
JM 1770 DATA a9202082alc884b760a90120fa 
RV 1780 DATA a3a90f8d95ala9144c82ala5b9 
MF 1790 DATA 2901f00160a9004c82alf8186d 
AM 1800 DATA 93al8d93ala9006d94al6d94al 
FA 1810 DATA d86022466a8eb2d6fa080a0c0e 
XD 1820 DATA 10121416181alcle209ba39ba3 
KB 1830 DATA 9ba39ba39ba3a4a394a394a394 
HA 1840 DATA a394a394a3eea3a9a3ad92all8 
BS 1850 DATA 69022049a4ad92all8690da245 
WW 1860 DATA 86b0a2a886bl4a4a4a4aaaca30 
ES 1870 DATA 0aa0b0a924208ca24c56a4a000 
NC 1880 DATA blb0c906f015c902f019c904f0 
TD 1890 DATA 2238e908c90eb005a9ff8d8eal 
FU 1900 DATA 60a9998d8dal4c9aa4a9996d8b 
OG 1910 DATA ala9198d8cal4c9aa4a95020fa 
VM 1920 DATA a3a900209ca2a9648d8fal60ad 
UY 1930 DATA 93alcd90alad94aled91al900c 






QS 

1940 

DATA 

XI 

1950 

DATA 

HL 

1960 

DATA 

QG 

1970 

DATA 

ZE 

1980 

DATA 

NC 

1990 

DATA 

CH 

2000 

DATA 

OX 

2010 

DATA 

MT 

2020 

DATA 

HG 

2030 

DATA 

CE 

2040 

DATA 

IB 

2050 

DATA 

LK 

2060 

DATA 

FM 

2070 

DATA 

YK 

2080 

DATA 

QB 

2090 

DATA 

BK 

2100 

DATA 

JP 

2110 

DATA 

OX 

2120 

DATA 

GI 

2130 

DATA 

BX 

2140 

DATA 


ad93al8d90alad94al8d91ala2 
ffad8bal0d8calf016ae8ealf8 
ad8bal38e9018d8balad8cale9 
008d8całd88e8eala004ad94al 
2011a5ad93al2011a5a014ad91 
al2011a5ad90al2011a5a024ad 
8cal2011a5ad8bal2011a5a034 
ad8dal484a4a4a4a201aa56829 
0f0al8692c2079alcBc860ad95 
alf0168d01d21869c8Bd00d2ce 
95ald008a9008d01d28d00d2ad 
96alf01709408d03d2a90a8d02 
d2ce96ald008a9008d03d2Bd02 
d2ad8falf01cl8690a8d04d2a9 
e68d05d2ad8fal38e9058d8fal 
d006 Bd05d28d04d2 60a007a900 
9900d2BB10fa60207fa5a00fa5 
14186902c514d0fc8c01d29818 
69648d00d28cc002984a8dcl02 
8810e2207fa54c60a0e002el02 
00a0 



Niewątpliwie każdy użytkownik ATARI kiedyś zauważył ze jeśli 
przez około 11 minut nie naciska się żadnych klawiszy to po up¬ 
ływie legi czasu ekran zaczyna zmieniać kolory ATARI przełącza 
się w tryb Atract Modę (czyli przyciągania uwagi) którego zada¬ 
niem Jest ochrona monitora przed wypalaniem luminoforu 

Obsługa trybu przyciągania uwagi nie jest wcale tak trudna. Jak 
się z początku wydaje Operację odliczania opóźnienia wykonuje 
za nas system w trakcie wykonywania przerwania VBLKI Nam 
pozostaje jedynie sprawdzanie na przerwaniu VBLKD czy znacz¬ 
nik ATRACT (lokaeja S4D) nie |est ujemny Jeśli Jest wykonuje¬ 
my własny nie za długi program 'przyciągający uwagę" 

Prezentowany poniżej programik jest próbą stworzenia włas¬ 
nego trybu Atract Jest on wzorowany na Istniejącym juz na 
komputerze IBM PC tzw "plemniku" (tak przyjęło się go po¬ 
wszechnie nazywać) autorstwa JBW 

Program jest nakładką systemową która ładuje się na górę 
pamięci a następnie przenosi się pod adres wskazywany przez 
MEMLO (słowo o lokacji S2e7) Instaluje się ona na przerwa¬ 
niach VBLK, a także zmienia wektory DOSINI 1 CASINI Ze 
względu na wygodę użytkownika, program nie niszczy zawarto¬ 
ści ekranu a także nie maskuje wciśnięcia klawisza wyłączają¬ 
cego tryb ATRACT 

Uwaga! Początku programu nie należy lokować w obszarze 
706 rio 508 bajtów od końca 4—kilobajtowego bloku pamięci 
czyli np od adresu S2D3E do adresu S2E04 włącznie ale moz 
na gp ulokować Juz od S2D3D lub S2E05 

W programie można ustawić opóźnienie w zakresie około 0- 
11 minut W tym celu należy wpisać do 640 komórki od końca 
zainstalowanego programu lub 73 komórki od początku pliku 
wartość obliczoną według następującego wzoru 

VALUE=128-INT(TIME*50/256) , 

gdzie wartość TIME (czyli czas) podawana jest w sekundach 

Orilnstalowanle nakładki odbywa się poprzez ponowne jej 
wczytanie W przypadku niemożności usunięcia programu z pa 
mięci poinformuje on nas o tym stosownym komunikatem 

Aby uzyskać program w formie pliku zdatnego do uruchomie¬ 
nia z poziomu DOS-a lub COS-a, należy poniższy listing prze¬ 
tworzyć Zgrywusem - 


Atract 
autor; JK 

(c) 1993 Tajemnice ATARI 


IJ 1000 REM 
TD 1002 REM 
UK 1004 REM 
ZR 1006 REM 
JP 1008 REM 
PG 1010 DATA ffff0097a09b203a9918ade702 
GI 1020 DATA 69c38de702ade80269028de802 
IV 1030 DATA ae2202ac23028e47978c4897a0 
YN 1040 DATA 3ea297a906205ce4ae2402ac25 


mAJI 

d j 

ZA 

1050 

GE 

1060 

VI 

1070 

IM 

1080 

HT 

1090 

NO 

1100 

IA 

1110 

XF 

1120 

ZS 

1130 

TE 

1140 

UA 

1150 

LI 

1160 

LR 

1170 

LR 

1180 

UN 

1190 

GU 

1200 

UX 

1210 

AJ 

1220 

XZ 

1230 

UF 

1240 

FL 

1250 

AK 

1260 

KW 

1270 

UY 

1280 

ZU 

1290 

ov 

1300 

wx 

1310 

RR 

1320 

XN 

1330 

YF 

1340 

TL 

1350 

BN 

1360 

RY 

1370 

ID 

1380 

VN 

1390 

BG 

1400 

CD 

1410 

QW 

1420 
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DATA 4e5ee4a54dd004a974854d4c46 
DATA 97244d30034cfe97ad0ad2ce99 
DATA 98d010ad9498ce9898d008a902 
DATA Bd9898ad979829038df098aa4d 
DATA 94984a6ab0023055ad95988dfl 
DATA 98ad96988df2988a4aaa20749B 
DATA b041ad9998d036a8ae95982001 
DATA 98adf0984aaa6a2e94982e9398 
DATA 0a082e94982e9398288af004e8 
DATA 207498adf2988d969Baefl988e 
DATA 9598a90fa00220019Badf0988d 
DATA 979 8ad9 9 9 8d005a907 Bd9 9 9 8a9 
DATA 008dlad0a9628dlbd0Bd00d4ad 
DATA f29838edf39849ff69ae8d02d4 
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DATA 2e9b2863292031393933206279 
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DATA 9d9a98caa9419d9a9Bcaa008a9 
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DATA 09030207a00020b39aade7028d 
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DATA 60f0d5290dc908f0cf90418a29 
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DATA 9ab006a5d0a6dł900724cf30al 
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DATA 91d420949b4cl69be6d2d002e6 
DATA d3e6d4d002e6d560e002el02e8 
DATA 9a 
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mlach ogromnego 
szej rezydencji rodu Eddlego obecnie 
częściowej ruinie Bogactwa te nie były 


prawowity dziedzic fortuny Eddte, sięg- 


nych zasadzek pułapek najeżonych kol¬ 
cami podłóg i tym podobnych niespo¬ 
dzianek Nasze zadanie polega na odna¬ 
lezieniu skarbu 1 przechytrzeniu podstę¬ 
pnego sąsiada którego w dobrej wierze 
wzięliśmy ze sobą, a teraz gorzko tego ża¬ 
łujemy Grafika gry Jest niebrzydka na 
każdej planszy znajduje się bardzo wiele 
różnego rodzaju elementów niektóre 
z nich są czymś więcej nlz tylko dekora¬ 
cją Animacja postaci mogłaby być nieco 
lepsza widać jednak, ze autor sporo się 
nad grą napracował choć trochę szkoda 
ze skoncentrował się głównie na grafice 


Muzyczka w grze Jest dość przyjemna 
nie wyróżnia się Jednak niczym szczegół 
nym Sam scenariusz gry, dosyć często 
eksploatowany, został urozmaicony 
przez dosyć ciekawy pomysł Na terenie 
zamku znajduje się sklepik (?) w którym 
można kupić różne przydatne do dalszej 
wędrówki przedmioty między Innym) 
magiczny eliksir pozwalający na chwilo¬ 
we unieszkodliwienie utrudniającego 
nam życie sąsiada 


clół Honkyego i uczynił ich swymi sługa¬ 
mi Teraz ludzik musi omijać dawniej 
przyjazne mu zwierzęta, w przeciwnym 
razie mogą one wyrządzić mu krzywdę 

Oprawa graficzna gry Jest interesująca 
ładnie narysowane są zwierzaki, nato¬ 
miast mam zastrzeżenia co do postaci 
głównego bohatera - Honky nie Jest naj¬ 
ładniej "wykonany" Jego animacja rów¬ 
nież nie Jest najpiękniejsza Sama gra 
może Jednak dostarczyć dobrej zabawy 
bowiem poszczególne plansze są zrózni 
cowane pod względem oprawy na kazdel 
mamy do czynienia z innym zwierzakiem 
a ominięcie ich Jest niekiedy zadaniem 
naprawdę niełatwym Gracze którzy lu¬ 
bią dobre 'zręcznościówki' znajdą tu 
coś dla siebie 


Gra labiryntowa Tym razem wcielamy 
się w postać badacza zaginionych cywili¬ 
zacji profesora Skulla który w połu¬ 
dniowoamerykańskiej dżungli odnalazł 
tajemniczą piramidę Okazała się ona 
miejscem wiecznego spoczynku kapła¬ 
nów indiańskich których szczątki zosta¬ 
ły zbezczeszczone przez poszukujących 
złota konkwistadorów Teraz kapłani 
pragną zemsty zza grobu 1 Jeżeli profesor 
nie naprawi wyrządzonych im szkód 
światu grozi zagłada Należy więc Jak naj¬ 
prędzej pochować ciała kapłanów w sar¬ 
kofagach znajdujących się na każdym 
poziomie piramidy 

Zadanie to oczywiście nie Jest łatwe 
Jego wykonanie utrudniają złośliwe de 
mony gnomy, a także zastawione przez 
budowniczych piramidy różnego rodzaju 
pułapki Jest to gra dla tych którzy rów¬ 
nie sprawnie posługują się Joystickiem 
i własną głową Dużo dobrej zabawy dla 
miłośników gier typu Robbo 


Sterujemy ludzikiem o imieniu Honky 
którego zadaniem Jest pokonanie złego 
smoka Zaczarował on wszystkich przyja- 


Dawno dawno temu bogowie urządzili 
sobie wielki bal na świętej górze Olimp 
Wszyscy bawili się doskonale do czasu 
gdy stwierdzono zniknięcie Jednej z bo¬ 
giń - Afrodyty Po długich poszukiwa¬ 
niach okazało się, że została ona porwa¬ 
na przez wielkiego Nietoperza i ukryta 
w tajemniczych katakumbach Rozgiewa- 


ny Zeus postanowił odnaleźć Ją a przy 
okazji dać nauczkę Nietoperzowi 

Czy olimpijskiemu bogu potrzebna Jest 
nasza pomoc? Oczywiście tak! Katakum¬ 
by w których ukryta Jest Afrodyta nie są 
najprzyjemniejszym miejscem Ponadto 
Zeus dosyć długo opijał się winem 1 wy¬ 
grzewał na słońcu stracił więc wiele ze 
swej sprawności Gracz ma spore pole 
do popisu Gra prezentuje się ładnie 
pod względem graficznym animacja po¬ 
staci Jest płynna można Jedynie mleć 
niejakie zastrzeżenia do motywów muzy¬ 
cznych, ale nie należy zapominać, ze Ist¬ 
nieje możliwość wyłączenia muzyki 

"Zeuś należy do gier platformowych, 
przed rozpoczęciem właściwej gry może¬ 
my obejrzeć sobie ładne intro wprowa¬ 
dzające w klimat gry i przedstawiające 
opisaną powyżej legendę 


Basia 



Przesyłam sprostowanie do programu 
CMC+ z TA 5/93 Otóż autor artykułu 
i programu wspomina o dwu wadach 
programu CMC Janusza Pelca, a miano¬ 
wicie o niemożności kopiowania instru 
mentów oraz o braku możliwości zapisu 
własnych instrumentów Słowa o nie 
możności kopiowania instrumentów to po 
prostu absurd! Dlaczego? Kopiowanie in¬ 
strumentów jest możliwe bez żadnych 
poprawek Jaki? W oknie ptrn można wy¬ 
konać trick z przenoszeniem pattemów 
(w celu skrócenia mozolnego wpisywa¬ 
nia ich od nowa). Aby tego dokonać, na¬ 
leży wybrać pattem. który chcemy 
przenieść, wcisnąć klawisz CLEAR. wy¬ 
brać miejsce przeznaczenia i wcisnąć 
klawisz INSERT Pattem, w niezmienio¬ 
nej postaci, został skopiowany do innego 
Podobnie ma się sprawa w oknie instr 
A zatem: wybieramy instrument (np 00) 
i chcemy go przenieść w inne miejsce 
(np 10). Na wybranym instrumencie 
wciskamy CLEAR. co kasuje instrument 
(i zarazem zapamiętuje), a następnie 
przejeżdżamy do numerka 10 i wciska¬ 
my INSERT / co? Okazuje się, że bez 
żadnych poprawek można kopiować in¬ 
strumenty. Taką to drogą doszedłem do 
wniosku, ze program LinkCMC powinien 
być skrócony o połowę, ponieważ wy¬ 
starczy zamieścić program służący do 
nagrywania własnych instrumentów 

Proszę o wydrukowanie w TA mojego 
sprostowania, aby zaoszczędzić "mę¬ 
czarni’ wpisywania całego programu 
wystraszonym i rozgorączkowanym 
użytkownikom sprawnego przecież pro¬ 
gramu CMC. 


Ryszard Cybruch 


























































r< , -ft^KrFrjs 



r 

rr 

f r 

El 

* 


Albm Jy 

J 

ł 

m 1 

m j 

k— i 

SfcfFF* 

r 

F 

~ ' l” 

1L 

T 
























*iTf I 

1 % > ul 


SKOCZEK 

Zadaniem gracza jest zaświecenie całego hasła poprzez wydo¬ 
stanie się na samą górę 1 dotknięcie każdej z liter Niestety, Jeśli 
dotkniemy Juz zaświecone) litery to zgaśnie ona Jednorazowo 
można zaświecić lub zgasić tylko jedną literę Następne) można 
dotknąć dopiero po zejściu na sam dół 1 ponownym wyjściu na 
górę Podczas wędrówek należy uważać ałjy nie zderzyć się ze 
stworem pilnującym korytarzy 

Gotową grę uzyskujemy po przetworzeniu listingu Zgrywusem 

IJ 1000 REM *- * 

AT 1002 REM ! Skoczek : 

JV 1004 REM : autor! Dariusz Rzepka : 

ZR 1006 REM : (c) 1993 Tajemnice ATARI i 

JP 1008 REM *- * 

TH 1010 DATA ffff0096e39da9a6a00020299d 
WU 1020 DATA a9e485b8a99d85b9a20fa01abl 
YH 1030 DATA b491b88810f9a92820349da91b 
JT 1040 DATA 203e9dcal0eaa00084c584c48c 
HT 1050 DATA 04d28c05d2a9cf20299da20da0 
JY 1060 DATA 19a90091b48810f9a92820349d 
BW 1070 DATA Cal0efa000a9a620299da01aa9 
IB 1080 DATA 809Ib48810fb20109da9282034 
BW 1090 DATA 9da98091b48810fba000a9d420 
SZ 1100 DATA 299da200bd579d8d8396bc629d 
PA 1110 DATA b9ae9d91b4c8c007d0f6bd6d9d 
GA 1120 DATA 20349de8e00bd0e2a9a08df402 
BA 1130 DATA a00084c784a9b900e09900a0b9 
RN 1140 DATA 00el9900alb900e29900a2b900 
MW 1150 DATA e39900a388d0e5b9779d99d8a2 
YB 1160 DATA C8c020d0f5a9038d0fd2a9ff8d 
JW 1170 DATA fC02a9918dad9da9068d8d9a20 
SL 1180 DATA d69b20769ca001a9e720299da2 
WQ 1190 DATA 08a00dbd979d91b488cal0f720 
SZ 1200 DATA 959a20359ba5146906c514d0fc 
HW 1210 DATA a001a9e720299da000blb448c8 
FO 1220 DATA blb48891b4c8c011d0f5688891 
ZS 1230 DATA b4adfc02c9ffd005ad8402d0cb 
BS 1240 DATA c9Icd02da9e08df402a000a9a6 
LY 1250 DATA 20299da9e485b8a99d85b9a20f 
YJ 1260 DATA a01ablb891b48810f9a9282034 
ET 1270 DATA 9da91b203e9dcal0ea60a9ff8d 
HZ 1280 DATA fC02a206bdae9d9da09dcal0f7 
UM 1290 DATA a983a00120299da5b485c8a5b5 
UH 1300 DATA 85c9a9fb20299da5b485caa5b5 
AU 1310 DATA 85cbc8a97420299da5b485cca5 
LP 1320 DATA b585cda000a91591cca005a900 
DC 1330 DATA 99a00099aa008810f7a002a919 
OB 1340 DATA 91ca8891cac8a9d720299da5b4 
MR 1350 DATA 85b6a5b585b7a000a9cf20299d 
EW 1360 DATA a207a010a98091b491b68810f9 
EX 1370 DATA a514c514f0fca92820349d38a5 
UL 1380 DATA b6e92885b6b002c6b7cad0dca2 
SB 1390 DATA 06a00bbda79d91b688cal0f7a5 
LX 1400 DATA 146914c514d0fca207a010a900 
MA 1410 DATA 91b4a9d591b68810f5a514c514 
XR 1420 DATA f0fC38a5b4e92885b4b002c6b5 
IJ 1430 DATA 18a92865b685b69002e6b7ad01 
DV 1440 DATA 98ac05988d05988c0198cal0c8 
XV 1450 DATA a038a90091b488c027d0f9a033 
ZM 1460 DATA a206bda09d91b488cal0f720e3 
PY 1470 DATA 9ba002a9b720299da5b485b8a5 
GD 1480 DATA b585b9a028a95c91b820959a20 
QM 1490 DATA 359b203c9aa90085a8adfC02c9 
EM 1500 DATA Icf050c921f04fc906f04ec907 
FP 1510 DATA f07fad7802c907f078c90bf03f 
YT 1520 DATA ad8402f037a5146905c514d0fc 
LA 1530 DATA 203c9a20959a20359b20f59ca9 
HN 1540 DATA 0185a8201c9cadfc02c921f015 
UZ 1550 DATA ad8402f010203c9aa5146905c5 
OQ 1560 DATA 14d0fcf09c4c27964c3b9920dl 
ZK 1570 DATA 9cc95df02888blb8f006c980f0 
CC 1580 DATA 0dd033c891b8a90120489d4cf7 
FL 1590 DATA 98c8a90091b8a910203e9da028 
SA 1600 DATA a95e91b8d033a95c91b8d02d20 
BJ 1610 DATA dl9cc95ef029c8blb8f007c980 
PX 1620 DATA f00d20789b8891b8a901203e9d 
KQ 1630 DATA d00a88a90091b8a91020489da0 
JP 1640 DATA 28a95d91b84c9698a95c91b8f0 
UL 1650 DATA f7a9ff8dfC02a000blb8f00fc9 
PL 1660 DATA d5d07b20dl9ca028a95c9Ib8d0 
TH 1670 DATA dda90285c4a95c91b8a900a028 
PF 1680 DATA 9Ib8a95020489dblb8c980f054 


HT 

1690 

DATA 

HN 

1700 

DATA 

NH 

1710 

DATA 

LC 

1720 

DATA 

SO 

1730 

DATA 

ZD 

1740 

DATA 

ML 

1750 

DATA 

ZY 

1760 

DATA 

YE 

1770 

DATA 

00 

1780 

DATA 

WJ 

1790 

DATA 

ux 

1800 

DATA 

VT 

1810 

DATA 

GE 

1820 

DATA 

ID 

1830 

DATA 

SK 

1840 

DATA 

PE 

1850 

DATA 

XE 

1860 

DATA 

EH 

1870 

DATA 

EK 

1880 

DATA 

XS 

1890 

DATA 

XG 

1900 

DATA 

DU 

1910 

DATA 

AZ 

1920 

DATA 

cx 

1930 

DATA 

FD 

1940 

DATA 

MR 

1950 

DATA 

BW 

1960 

DATA 

AZ 

1970 

DATA 

MH 

1980 

DATA 

OD 

1990 

DATA 

KS 

2000 

DATA 

DL 

2010 

DATA 

OU 

2020 

DATA 

JO 

2030 

DATA 

FC 

2040 

DATA 

PG 

2050 

DATA 

YR 

2060 

DATA 

NP 

2070 

DATA 

FA 

2080 

DATA 

MV 

2090 

DATA 

LD 

2100 

DATA 

DV 

2110 

DATA 

LS 

2120 

DATA 

NE 

2130 

DATA 

XY 

2140 

DATA 

MB 

2150 

DATA 

US 

2160 

DATA 

KJ 

2170 

DATA 

OT 

2180 

DATA 

NY 

2190 

DATA 

TZ 

2200 

DATA 

VP 

2210 

DATA 

MS 

2220 

DATA 

RQ 

2230 

DATA 

DF 

2240 

DATA 

JI 

2250 

DATA 

LV 

2260 

DATA 

DW 

2270 

DATA 

LN 

2280 

DATA 

TL 

2290 

DATA 

VJ 

2300 

DATA 

MY 

2310 

DATA 

WT 

2320 

DATA 

GN 

2330 

DATA 

KI 

2340 

DATA 

GX 

2350 

DATA 

ER 

2360 

DATA 

EM 

2370 

DATA 

SA 

2380 

DATA 

KP 

2390 

DATA 

KF 

2400 

DATA 

SW 

2410 

DATA 

IZ 

2420 

DATA 

ER 

2430 

DATA 

VJ 

2440 

DATA 

FU 

2450 

DATA 

JQ 

2460 

DATA 

DS 

2470 

DATA 

WP 

2480 

DATA 

PA 

2490 

DATA 

NA 

2500 

DATA 

DJ 

2510 

DATA 

JW 

2520 

DATA 

JO 

2530 

DATA 

CI 

2540 

DATA 

CT 

2550 

DATA 

PF 

2560 

DATA 

DX 

2570 

DATA 


C96ff0a3a95c91b8a20120fe9b 
a5a2d021a201cab5ale8c901f0 
06a90195ald004a90295alad0a 
d2f0fbc964b0f795ab9018a5a3 
d004a202d0d9a5a4d004a203d0 
dla5a5d004a204d0c9a90785c5 
20559b4c96984c299aa6c7d0f6 
49809Ib8a90285c4a20a20fe9b 
a000a9d420299dblb41032c8bl 
b4102dc8blb41028c8blb41023 
c8blb4101ec8blb41019c8blb4 
1014eead9dce8d9aa006b9ae9d 
99a09d8810f74c9697a006blb4 
99a09d8810f8e6c7a9028d9998 
8dc398d096a900a05091b8a078 
a95c91b8a950203e9dd083a050 
blb8f005c980f03260a90285c4 
a028a90091b8a050a95c91b8a0 
78blb8c96ff016a95c91b8a900 
a0509Ib8a950203e9da90085c5 
4c559b4c789ba5c7f010a90085 
c7a002a91991ca8891ca20d69b 
a9068d99988dc39860a5a0a200 
20c09aa5ala20120c09aa5a2a2 
0220c09aa5a3a20320c09aa5a4 
a20420c09aa5a5a20520c09a60 
c90If03cc902f00160b4aa£6aa 
C8c067f01bb900a4f02888a9d5 
9900a4c066d004a90195aab4aa 
a9009900a460a90095aaa8c8b9 
00a4 f007a06 6 a9d59 900a4 60b4 
aad6aa88f01bb900a4f028c8a9 
d59900a4c001d004a96695aab4 
aaa9009900a460a96795aaa888 
b900a4f007a001a9d59900a460 
a001a91f20299da201a000bd00 
a491b4e8c8c011d0f5a9502034 
9de067d0ea60a203a002blcaa8 
8898a00291cac90fd06aa91991 
ca88blcaa88898a00191cac90f 
d0586868a002a91091ca8891ca 
a9328d00d2a9c88d02d2a98f8d 
01d28d03d288a9a620299d2010 
9da5c5f00aa900a05091b8a000 
84c5a5146982c514d0fca003a9 
009900d28810faa8blccc911d0 
034c2796aaca8a91cc4c9697ca 
d08 4 8 6 c5 60a005a90099a0009 9 
aa008810f 7a06 7a9d5 9900a4 8 8 
10faa90285a0a93c85aaa90185 
ala92b85ab6086c6a002blc8c9 
19f00caae88a91c8c6c6a6c6d0 
ed60a91091c8884c029ca5a9f0 
07c6a9a5a8f00860e6a9a5a8d0 
0160a5a6c901f028a4a7c8bl9e 
f00dc980f0328888a900919e4c 
789b84a7a96f919e88a900919e 
60a96f919ec84c4f9ca4a78884 
a7c8bl9ef0eec980d0dbc8a900 
919ef00588a900919ead0ad2c9 
01f00ec902d0f5a90285a6a901 
85a7d008a90185a6a91085a7ad 
0ad2c902f016c903f018c904f0 
Iac905f01cc901d0e9a001a946 
d016a001a996d010a001a9e6d0 
0aa002a936d004a002a9861865 
58859e986559859f60a9ff8dfc 
02a9198d00d2a9898d01d2a514 
C514f0fca900854d8d00d28d01 
d2a028blb860a5c4f01649808d 
04d2a92e8d05d2c6c4d008a900 
8jl04d28d05d260a20da9282034 
9da000a98091b4a01291b4a01a 
91b4cal0ea6018655885b49865 
5985b5601865b485b49002e6b5 
601865b885b89002e6b9608d4f 
9d38a5b8e90085b8b002c6b960 
070el4191c2326292a2f360007 
0el4191c2326292a2f06224a24 
4b234d264d223c4299alal9942 
3cl83c66663cl83c423060767c 
764078440c066e3e6e021e2227 
212d25002f3625327177657274 
7975aca5b6a5ac8091332b2f23 
3a252b2461726975737a327a65 
70ćb6133636f7265101010256e 
657267791al010102d656el05b 
1119191362790002342102e002 
el020096 


Dariusz Rzepka 
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DISK INFO 


Dziś druga (i zarazem ostatnia) część programu informacyj¬ 
nego dla posiadaczy stacji dysków. Ten fragment nie będzie 
działał samodzielnie, konieczne jest posiadanie pierwszej czę¬ 
ści tego programu (patrz poprzedni numer TA) Ta część roz¬ 
szerzy pierwszą o dyskowy tryb pracy Po uzyskaniu pliku bi¬ 
narnego przy pomocy Zgrywusa należy ten plik dołączyć do 
pierwszej części Można do tego celu użyć programu Append 
drukowanego na łamach TA łub dowolnego programu 
łączącego Należy jednak pamiętać o tym aby poniżę) wydruko¬ 
wana cześć programu znajdowała się na końcu całości pliku 
Jeżeli wszystko odbyło się poprawnie to teraz do dyspozycji 
mamy program działający w obu trybach, zarówno plikowym, 
jak i dyskowym. Ten pierwszy został opisany w poprzednim nu¬ 
merze TA teraz kole| na tryb dyskowy 

Naciśnięcie dowolnego klawisza spowoduje przełączanie try¬ 
bu pracy programu- plik-dysk Wybrany tryb zatwierdzamy kla¬ 
wiszem RETURN ESC spowoduje wyjście do programu nad¬ 
rzędnego Gdy potwierdzimy chęć pracy w trybie dyskowym to 
program poprosi o umieszczenie w stacji dysków interesującej 
nas dyskietki i naciśnięcie dowolnego klawisza Rozpocznie się 
proces czytania całego dysku (można go przerwać klawiszem 
BREAK W trakcie analizowania dyskietki na ekranie wy¬ 
świetlany Jest numer czytanego sektora oraz procentowy wskaź¬ 
nik zaawansowania pracy 

W trybie dyskowym program podaje następujące informacje: 

Gęstość dyskietki, istnieją trzy możliwości pojedyncza roz¬ 
szerzona lub podwójna 

Rozmiar sektora w bajtach 880 lub 8100 

Liczba sektorów hootowych 

Liczba aktywnych plików pod DOS-em 2 5 

Liczba wolnych sektorów na dyskietce pod DOS-em 2.5 Je¬ 
żeli informacje VTOC i Mapa nie są identyczne to dysk należy 
poddać weryfikacji 

Liczba uszkodzonych sprzętowo sektorów oraz ich numery 
Jeżeli program napotka zły sektor, to zapyta o chęć powtórze¬ 
nia próby Jego odczytu Potwierdza się ją klawiszem T a także 

RETURN 

IJ 1000 REM *-* 

ID 1002 REM ! Info 2 : 

RY 1004 REM : autor: Leon : 

ZR 1006 REM : (c) 1993 Tajemnice ATARI : 

JP 1008 REM *-* 

XF 1010 DATA ffff008d8191a90085e285d285 
MI 1020 DATA d385da85db85e4a08f99199b88 
RX 1030 DATA 10fa200384 a9 8ea2 902006 84 a9 
MI 1040 DATA 092009 8 4 a0a2 a2 90a5d6100ba0 
HP 1050 DATA ada2900a3004a097a290982006 
AL 1060 DATA 84a9c7a29085cc86cda900a204 
KL 1070 DATA a4d63004a9d0a20285ca86cba2 
QZ 1080 DATA 00a003a5d60a3002a2808a200c 
1.0 1090 DATA 84a201a5d60a3006a9fe91ccd0 

ZD 1100 DATA 048a200f84a9b6a290200684a9 
PK 1110 DATA 00a204a4d61004a9d0a20285ca 
CG 1120 DATA 86cba9d4a290200684e6d2d002 
WV 1130 DATA e6d3a5d3c5cbd00ba5d2c5caf0 
FJ 1140 DATA 0590034cd28ea9e5a29085cc86 
WY 1150 DATA Cda002a5d2200c84a5d3200f84 
EQ 1160 DATA 20da8fa56438e91885cca565e9 
YU 1170 DATA 0085cda9e5a29085d486d5a000 
IZ 1180 DATA bld4c99bf00dc9fef005201284 
CS 1190 DATA 9lcccS4cd7 8da5cb4 8a5ca4 8a5 
RI 1200 DATA db48a5da482015841072c080d0 
ZB 1210 DATA 034ccb8fa9f0a2902006842018 
JK 1220 DATA 84293fc9Ied00d6885da6885db 
OU 1230 DATA 6885ca6885cb60c90cf004c92d 
ED 1240 DATA d019200384a9d4a29020068468 
SN 1250 DATA 85da6885db6885ca6885cb4cc0 
HW 1260 DATA 8d200384a9d4a290200684a5e2 
BZ 1270 DATA C97fb00e0aaaa5d29d0c95a5d3 
LX 1280 DATA 9d0d95e6e26885da6885db6885 


BZ 1290 DATA Ca6885cb4c928d6885da6885db 
GI 1300 DATA 688 5ca6885cba5d3d00ea5d2C9 
ZN 1310 DATA 01d0e7adla9685e34c928dc901 
QK 1320 DATA d0dba5d2c968d00da080b91996 
UQ 1330 DATA 99199b8810f730c8c96990c4c9 
AX 1340 DATA 71b0c0a5e430bca000b91996d0 
AC 1350 DATA 08a5e4098085e430ad29dfc903 
WM 1360 DATA d004c942d002e6e498186910a8 
PD 1370 DATA 10e03098a5d3c904d00ba000b9 
EV 1380 DATA 199699299bc810f7a5e385caa9 
KV 1390 DATA 0085cb201b84a928a29185d486 
YE 1400 DATA d5201e84a914a291200684a5e4 
TQ 1410 DATA 297f85caa90085cb201b84a90e 
WJ 1420 DATA a29l85d486d5201e84a9fca290 
BB 1430 DATA 200684a2f£18e8bda39ba4d610 
VD 1440 DATA 02a9007dlc9b95ca8af0ee201b 
NH 1450 DATA 84a947a29185d486d5201e84a9 
QJ 1460 DATA 2ea291200684a20086ca86cba0 
OA 1470 DATA 07bd239b0a9006e6cad002e6cb 
JY 1480 DATA 8810f4e8e08090ea201b84a966 
SE 1490 DATA a29185d486d5201e84a94da291 
WG 1500 DATA 200684a5e2f04a85caa90085cb 
JK 1510 DATA 201b84a97ca29185d486d5201e 
KN 1520 DATA 84a96ca291200684a90085e3a5 
TZ 1530 DATA e3c5e2b0250aa8a984a28b85cc 
IJ 1540 DATA 86cdb90d9548b90c95a002200c 
UL 1550 DATA 8468200f84a983a28b200684e6 
EU 1560 DATA e3d0d54c21846885da6885db68 
PV 1570 DATA 85ca6885cb4cc88fa5dbc5cb90 
VN 1580 DATA 08d00ca5dac5cab006e6dad002 
WR 1590 DATA e6dba5db48a5da48a5cb48a5ca 
OS 1600 DATA 48a90085d4208890a90085d585 
FE 1610 DATA cc85cd85d8a5ccl865ca85cca5 
VY 1620 DATA Cd65cb85cda5d8690085d8c5d4 
IE 1630 DATA 9012d014a5cdc5db900ad00ca5 
AF 1640 DATA Occ5daf002b004e6d5d0d3a4d5 
XG 1650 DATA 84caa90085cb201b84a9e9a290 
HQ 1660 DATA 85d486d5201e846885ca6885cb 
TA 1670 DATA 6885da6885db6006da26db26d4 
YS 1680 DATA 60205b904c5b90205b90a5d448 
MG 1690 DATA a5db48a5da48206290681865da 
TF 1700 DATA 85da6865db85db6865d485d460 
ZY 1710 DATA 2068904c6890471573746f0bl9 
SF 1720 DATA 3a9b706f6a6564796e637a619b 
AT 1730 DATA 7a7769156b737a6f6e619b706f 
AC 1740 DATA 6477106a6e619b526f7a6d6961 
GY 1750 DATA 722073656b746f72613a202430 
WA 1760 DATA 30302062616a7410772e9b437a 
HY 1770 DATA 7974616d2073656b746f723a20 
RP 1780 DATA 249b303030203030303030259b 
FU 1790 DATA 506f777410727a7919203f9b41 
UE 1800 DATA 6b7479776e79636820706c696b 
OG 1810 DATA 10773a2030303030309b53656b 
ZO 1820 DATA 746f72107720626f6f746f7779 
KK 1830 DATA 63683a2030303030309b576f6c 
CV 1840 DATA 6e7963682073656b746f721077 
RN 1850 DATA 202856544f43293a2030303030 
GE 1860 DATA 309b576f6c6e7963682073656b 
VO 1870 DATA 746f72107720284d617061293a 
WD 1880 DATA 2030303030309bSa0979636820 
HF 1890 DATA 73656b746f7210773a20303030 
AG 1900 DATA 30309be38ae38aff 


Lesław Pasternak 




Kangaroo 

KW 

1000 

REM poprawka do KANGAROO 

HO 

1010 

DATA 11894,198,234 

Al 

1020 

DATA 11985,151,234ws 



Miss Pae-Man 

IZ 

1000 

REM poprawka do MISS PAC-MAN 

BR 

1010 

DATA 11451,198,234 

YE 

1020 

DATA 11452,147,234 






consol 


equ $d01f 




runad equ $02e0 
vimirq equ $0216 

* - const. 

lenpat equ $10 

* dla perkusji 


*- demonstration 


Tak naprawdę, to program Chaos Musie Composer prócz 
niewątpliwych zalet posiada tyleż samo wad Jedną z najpoważ¬ 
niejszych jesl niezbyt dobra syntetyczna perkusja proponowana 
przez autora Nie jest jednak tak bardzo źle żeby nie mogło być 
lepiej Zawsze można próbować stworzyć własne brzmienie Nie 
będę Was zmuszał do wielogodzinnego ślęczenia nad klawiatu¬ 
rą, proponuję zdefiniowanie takiego Instrumentu 


org start 

Ida vimirq 
ldx vimirq+$01 
sta oldvim 
stx oldvim+$01 
Ida irqen_ 
sta oldirg 


długość patternu 


pamiętamy stare 
wartości 


1. Weźmy brzmienie ATARI I umieśćmy w nim takie akcenty 

abbabaasaaaaaaa a - akcent b - brak akcentu) 


Ida musadr+$13 aktualizowanie 
sta tempo tempa 


2 Wpiszmy od góry cztery magiczne liczby w słupku. 

fO al 03 OO 

Brzmi nieźle prawda? Wydaje ml się jednak ze to juz wszy¬ 
stko co można zrobić na ATARI XL/XE metodą sztucznego mo¬ 
delowania dźwięku Istnieje jednak sposób o którym świat już 
dawno wie 1 który obecnie masowo wykorzystywany jest na każ¬ 
dym kroku Chodzi o sampllng, czyli zapis 1 odtwarzanie 
dźwięku w sposób cyfrowy (przypominam ze swego czasu na 
łamach TA przedstawiony był schemat samplera dla ATARI) 
Jak wszystko Inne 1 ta metoda nie jest pozbawiona wad Naj¬ 
większą z nich jest niesamowita pamlęclochłonność Jednak 
wszyscy wiedzą, ze Istnieje wiele programów które wykorzystu¬ 
ją sample 1 wprowadzają w zadumę słuchających - Jak takie 
małe może tak grać? Dobrym przykładem jest tu gra Vicky 

Zdając się na siebie samego 1 na program CMC opracowałem 
metodę która pozwala na stworzenie naprawdę niesamowitych 
efektów (posłuchajcie, jak gra demo z końca artykułu) 

Wszyscy którzy zetknęli się z programem CMC wiedzą ze 
umożliwia on wykorzystanie trzech ścieżek Pierwsza wykorzy¬ 
stuje dwa generatory dźwięku I tuta| tkwi sedno sprawy Kiedy 
łączymy sprzętowo dwa generatory wartości częstotliwości wpi¬ 
sujemy do obu rejestrów AUDF wykorzystując jednocześnie 
tylko Jeden rejestr AUDC Co by było gdyby na drugim odgry¬ 
wać próbki? Zacznijmy od kilku uwag 

1 Piszemy muzykę na CMC, przez cały czas używając na pier¬ 
wsze! ścieżce brzmienia SuperBass Wiąże się to ze specyficz¬ 
nym zapisem wartości do re|estrów dźwięku przez CMC 

2. Zmieniamy w module odgrywającym rozkazy które wpisują 
wartości bezpośrednio do rejestrów sprzętowych tak, aby wpi¬ 
sywały Je do pamięci w Inne miejsce Później przepisujemy te 
wartości dokładając próbki. 

3 Piszemy odpowiednią procedurę, na przykład taką 


opt %100101 na urządzenie zew. 


*- memory location 

play equ $ffff adresy muzyki 

musadr equ $ffff i modułu 

start equ $a000 

bufor equ $0600 


*-zero page 

dosvec equ $0a (2) 

irqen_ equ $10 

timer equ $14 

apat equ $f0 (2) 

adrsmp egu $f2 (2) 


*-procedures 

plarti equ $c030 

setvbl equ $e45c 

sysvbl egu $e45f 


*- registers 

audfl equ $d200 
audcl equ $d201 
audctl equ $d208 
vcount equ $d40b 
irqen egu $d20e 


ldx <musadr inicjalizacja 

Idy >musadr muzyki 

Ida #$70 
jsr play+$03 
da #$00 
tax 

jsr play+$03 


jsr 

elear 


Ida 

#$00 inicjalizacja 

sta 

czyper 

perkusji 

sta 

Itmp 


sta 

wskain 


sta 

wska 


Ida 

#$06 

ustawienie 

ldx 

>vblk 

wektora 

Idy 

<vblk 

przerwań 

jsr 

setvbl 


loop equ 

■* 


Ida 

consol 

czy START 7 

emp 

#$06 


bne 

loop 


Ida 

#$06 


ldx 

>sysvbl 


Idy 

<sysvbl 


jsr setvbl 


Ida 

#$40 

stop muzyka 

jsr 

play+3 


sei 


oddaj stare 

Ida 

oldvim 

wektory 

ldx 

oldvim+$01 


sta 

vimirq 


stx 

vimirq+$01 


Ida 

oldirq 


sta 

irqen 


sta 

irqen_ 


cli 



jsr 

elear 


Ida 

tuner 


emp 

timer 


beq 

*—2 

powrot do 

jmp 

(dosvec) 

systemu 

vblk equ 

* 


jsr 

play+6 

odgrywamy melodię 

jsr percus 


jsr 

copy 


imp 

sysvbl 


elear equ * 


Ida #$00 zerowanie 

ldx 

#$08 

rejestrów i 

sta 

bufor,x 

buforu 

sta 

audfl,x 


dex 



bpi 

*-7 


rts 



copy egu 

* 

kopiowanie do 

ldx 

#$01 rejestrów (tylko 

Ida 

bufor,x 

częśc wartości) 

sta 

audfl,X 





Ida bufor+$02,x 
sta audfl+$02,x 
Ida bufor+$06,x 
sta audfl+$06,x 
dex 

bpi copy+2 
Ida bufor+$04 
sta audfl+$04 
Ida bufor+8 
sta audctl 
rts 

percus equ * 

Ida ltmp 
bne per4 
Idy wska 
Ida track,y 
bne per3 
Ida #$00 
sta wska 
sta czyper 
}nip percus 
per3 equ * 
tay 
dey 

Ida <patdl 
sta apat 
Ida >patdl 
sta apat+$01 
perl equ * 

cpy #$00 
beq per2 
clc 

Ida apat 
adc #lenpat 
sta apat 
Ida apat+1 
adc #$00 
sta apat+1 
dey 

jmp perl 

per2 equ * 

Idy wskain 
Ida (apat),y 
cmp #$00 
beq per4 
tay 
dey 


beq *-3 
Ida #$01 
sta irqen 
adr }mp lrq1 


#$00 

(adrsmp),y 

e 





#$00 

(adrsmp),y 
#$10 

audcl+$04 

adrsmp 

irl_ 

adrsmp+$01 
adrsmp » $01 
skon 
endirq 
* 

<irq2 

>irq2 

adr+$01 

adr+$02 


endirq equ * 

Ida <plarti 
Idy >plarti 


Ida poczm,y 


sty vimirq+$01 

sta adrsmp 


Ida #$00 

Ida poczs,y 


sta czyper 

sta adrsmp+1 


sta irqen 

Ida kons,y 

"i 

pla 

sta skon 

i 


jsr setirą 


pla 

equ * 


rti 

inc ltmp 



Ida ltmp 


patdl equ * 

cmp tempo 


dta d' l 

bne endper 


dta d' 1 # !" ## 

Ida #$00 

m* . - .w* 

dta d' 

sta ltmp 



inc wskain 


track equ * 

Ida wskain 


dta d' # # 1 ” I •’ ! ” 

cmp #lenpat 


dta d .. , b( 


n 


bne endper 
Ida #$00 
sta wskain 
inc wska 
endper equ * 
rts 


irq 


Ida 

<irq 

Idy 

>irq 

sta 

vimirq 

sty 

vimirq+$01 

Ida 

vcount 

cmp 

vcount 

beq 

*-3 

Ida 

#$01 

sta 

irqen 

sta 

czyper 

rts 


equ 

* 

pha 


tya 


pha 


Ida 

vcount 

cmp 

vcount 



poc zm 

dta 

b{$00),hi$00),b($00) 

poczs 

dta 

b( $60) ,iii $63) ,b( $70) 

kons 

dta 

b{ Sfc i ) , tx S66 ) ,b( $80) 

czyper 

org 

* + l 

skon 

org 

*+l 

ltmp 

org 

*4-1 

ws kalif 

org 

*4-] 

ws^a 


f + 1 

tempo 

org 

|*4-1 

cldVim 

org 

ł + 2 

o ldirq 

org 

*4-1 


org runad 

dta a(start) 
end of proq . 

Należy się tu part slow wyjańnii nla ale najpierw chcę oplsar 
w |akl sposób zmlt ni( morluł odgrywający 1 dostosować go do 
naszyć h potrzeb Sprawa |r.st prosta 1 sprowadza się do wyko 
rzyslanta przy pomu< y 1‘atchera następujące) laty 






1000 REM Poprawka do Modułu CMC 
1010 DATA 1541,210,6 
1020 DATA 1562,210,6 
1030 DATA 1575,210,6 

Spowoduje ona to że moduł będzie wpisywał wartości na 
szóstą stronę pamięci, a nie do generatorów dźwięku Dopiero 
nasz program przepisze Je do odpowiednich rejestrów 

Deflnlowanle własnych pattemow rozpoczyna się od etykiety 
PATD1 natomiast Ich długość określa zmienna LENPAT (war¬ 
tość SIO) Chciałbym tu zaznaczyć ze długość ta nie |est wybra¬ 
na przypadkowo, równa się Jednej czwartej długości pattemu 
w CMC Wyze| wpisałem wartości w kodach ekranowych co 
czyni program bardziej zrozumiałym, więc spacja oznaczać bę¬ 
dzie ciszę wykrzyknik - próbkę numer 1 ltd Z tak zdefiniowa¬ 
nych pattemow układamy ścieżkę (patrz etykieta TRACK), Tu 
również wpisałem wartości w ten sam sposób np znak dolara 
oznacza pattern czwarty wykrzyknik - pierwszy ltd Całą ścież¬ 
kę kończymy zerem co spowoduje jej odgrywanie od początku 

Ważne są Jeszcze etykiety POCZM POCZS KONS' 

POCZM -- młodszy bajt adresu pierwszej próbki w pamięci 

POCZS - Jak wyżej tylko starszy ba|t 

KONS - starszy bajt adresu końca próbki w pamięci 

Na koniec kilka uwag 

1 Przy pisaniu muzyki należy zwracać uwagę na głośność in¬ 
strumentów aby nie zagłuszyć sampllngu 

2 Można wykorzystać dowolne sample próbkowane co dwie 
synchronizacje poziome 

3 Podczas odgrywania muzyki z samplaml należy optymalnie 
wykorzystać przerwania ANTIC-a bowiem zniekształcają one 
digitalizację 


IJ 1000 REM *-* 

TX 1002 REM : CMC Demo ! 
WV 1004 REM i autor: Michał Luberda : 
ZR 1006 REM : (C) 1993 Tajemnice ATARI : 

JP 1008 REM *-* 

MZ 1010 DATA ffff00a0f6a2a9008d2f028d00 
HP 1020 DATA d4a900a2a88d30028e3102a200 
OT 1030 DATA a040a970200350a900aa200350 
UT 1040 DATA a900a2089d00069d00d2cal0f7 
BU 1050 DATA a9008df7a28df9a28dfaa28dfb 
DG 1060 DATA a28dlda8a9038d0fd2a2a0a081 
HA 1070 DATA a906205ce4a9008dc4028dc502 
DY 1080 DATA 8dc802a90e8dc602a9baa2a0a0 
XQ 1090 DATA C08d00028e01028c0ed4a9228d 
BI 1100 DATA 2f02a514c514f0fcadlfd0c906 
MW 1110 DATA d0£94c74e420065020eba0ad00 
SN 1120 DATA 06ae01068d00d28e01d2ad0206 
VU 1130 DATA ae03068d02d28e03d2ae04068e 
CH 1140 DATA 04d2ae0606ad07068e06d28d07 
DJ 1150 DATA d2ad08068d08d24c5fe4488a48 
QL 1160 DATA a2ff8d0ad4e8eclda8d0f7a200 
LU 1170 DATA bdlea88d0ad48dl6d0e8e016d0 
GP 1180 DATA £2eelda8adlda8c946d005a900 
SF 1190 DATA 8dlda86 8aa6 8 40adf9a2d052ac 
JO 1200 DATA £ba2b9 4 7a2d00da9008dfba2a9 
WO 1210 DATA 008df7a24ceba0a888a9e785f0 
WS 1220 DATA a9al85fIc000f01118a5f06910 
BT 1230 DATA 85f0a5f1690085f1884c0falac 
HR 1240 DATA faa2blf0c900f015a888b9e8a2 
GE 1250 DATA 85f2b9eda285f3b9f2a28d£8a2 
EG 1260 DATA 2064alee£9a2adf9a2c906d017 
EA 1270 DATA a9008df9a2eefaa2adfaa2c910 
VZ 1280 DATA d008a9008dfaa2eefba260a97f 
CE 1290 DATA 8dl602a9al8dl702ad0bd4cd0b 
ZN 1300 DATA d4f0£ba9018d0ed28df7a26048 
Lo 1310 DATA 9 8 4 8ad0bd4cd0bd4f0fba9018d 
GE 1320 DATA 0ed24cadala000blf24a4a4a4a 
ZN 1330 DATA 09108d05d2a9ada0al8d90al8c 
EG 1340 DATA 91al68a86840a000blf209108d 
VD 1350 DATA 05d2e6f2d009e6f3a5f3cdf8a2 
EF 1360 DATA f00ea992a0al8d90al8c9lal68 
ZD 1370 DATA a86840a9308dl602a9c08dl702 
HU 1380 DATA a9008df7a28d0ed268a8684005 
GU 1390 DATA 00000001000000050000000100 
YJ 1400 DATA 00000500010005030003030005 
Uo 1410 DATA 00050301000500010005010003 
WD 1420 DATA 05000300050303030500000001 
EO 1430 DATA 00000003030000010000000000 
ZH 1440 DATA 00000000000000000000000000 
BW 1450 DATA 00000000000000000001000100 
YN 1460 DATA 05010303050505050505050601 
WS 1470 DATA 01010101010101010401040104 


UJ 1480 DATA 01040404040404040404040404 
EA 1490 DATA 04040404040202020202020202 
WX 1500 DATA 02020202020202020202020202 
HK 1510 DATA 02020203030303030303030303 
JD 1520 DATA 03030303030303030303030303 
JG 1530 DATA 03030303030303030303030303 
JJ 1540 DATA 03030303030303030303030303 
JM 1550 DATA 03030303030303030303030303 
FR 1560 DATA 03030303030303030303020202 
PO 1570 DATA 02020202020404040404040404 
FR 1580 DATA 01010101010101010000000000 
HP 1590 DATA 006d££71f£756fff73ff7700a8 
KO 1600 DATA lca87070707070704234a8f070 
WH 1610 DATA 7070475ca80707707070707042 
QJ 1620 DATA 98a84100a81ea8bfa800020406 
KA 1630 DATA 06080a0a0c0c0e0e0c0c0a0a08 
EG 1640 DATA 060604020000000034616a656d 
ZY 1650 DATA 6e696365002134213229010000 
KD 1660 DATA 34616a656d6e69636500213421 
JY 1670 DATA 32290100000000000034212b00 
WL 1680 DATA 002d2f3a250027322123000000 
GR 1690 DATA 00000000000030322f2732212d 
NR 1700 DATA la0000000000002328212£3300 
RE 1710 DATA 2d3533292300232f2d302£3325 
BL 1720 DATA 32000000000000000033342132 
PP 1730 DATA 341a77796a7363696500646f00 
PI 1740 DATA 73797374656d75000000000000 
QH 1750 DATA 0000e002el0200a0ffff006d00 
CD 1760 DATA 6f9ffec979010000001affffff 
TW 1770 DATA fd000000000800ba£769dd£ff£ 
VZ 1780 DATA ££fffcd4055718787440000000 
PA 1790 DATA 007baf£f£cff9cfaffff521510 
QJ 1800 DATA 00327a36ab60006a7bff£f£dcf 
Ol 1810 DATA fc43888cb77a7400000000dfff 
WH 1820 DATA ff£c7ab7a08cedeffb83010243 
HH 1830 DATA Scbcdafc535441306d£fcaffcb 
EH 1840 DATA 14845548775353854039a69d£e 
GX 1850 DATA fdb7£cab57b77895bb07468739 
TC 1860 DATA 308788a6bada79b996888db897 
QU 1870 DATA a6424a67426568ac59a477b8a7 
BZ 1880 DATA baa9dabaa8a48c685489444547 
PP 1890 DATA 47787bbcbe99a8988ca788c666 
EK 1900 DATA 5b9667797479a87777a997a8bc 
HZ 1910 DATA 99abc8b7986966577b79789a69 
YO 1920 DATA 99a868886557696a67cda99899 
IM 1930 DATA 686899867666546a7679cba8aa 
FU 1940 DATA 9889977797656888a9aa7a9997 
XR 1950 DATA 66697a8aa7a885a77768977ab7 
WG 1960 DATA 997a769a8899988a988977a988 
QW 1970 DATA 8679898788799899978898aa9a 
FR 1980 DATA 9987558758797a89S887877787 
MS 1990 DATA 8897878889989b9a9998888788 
NA 2000 DATA 76888888987a89879998a98987 
FH 2010 DATA 87778898978888888788898898 
GK 2020 DATA 78888889999998989877786988 
JZ 2030 DATA 88899988888999998888878978 
ED 2040 DATA 88897889787888998999887777 
DX 2050 DATA 77789989989998988778787788 
EX 2060 DATA 88888999998988887787888887 
BX 2070 DATA 88778788888878888788788898 
IV 2080 DATA 98998898888888888888898888 
LA 2090 DATA 99989998888988978888888889 
HK 2100 DATA 99898988988888888888888888 
HH 2110 DATA 88899889988888888888888888 
GQ 2120 DATA 98888888888888888888888898 
GK 2130 DATA 99898888888888888888888888 
FC. 2140 DATA 88888888888888888888888888 
VN 2150 DATA 888888888888ffffff00750077 
YD 2160 DATA B888888873f7f00f30bf0f0050 
GO 2170 DATA 7a0f20985bcbeffff£ffffefe£ 
ML 2180 DATA efffafff0ffb74200000000000 
UV 2190 DATA 00000011234454443220102024 
AO 2200 DATA 2479cdfffffffffffffffff£fe 
JM 2210 DATA dccbbaa99888777899bdceefed 
MY 2220 DATA ecc98731000000000000000012 
AW 2230 DATA 23455667778889999999865552 
PG 2240 DATA 232135569aceffffffffffffff 
CF 2250 DATA ffffeddcbbaa99887776666655 
RK 2260 DATA 555556666667778989abdabcaa 
TU 2270 DATA ba8b45a7367133021100111122 
BS 2280 DATA 2334556677888999aaaabbbbbb 
QH 2290 DATA bbbbbbbbbbbbaaaaaaaa999989 
VM 2300 DATA 887776664554354445667789ab 
QF 2310 DATA cdeefffffffffffeedccbbaa99 
QK 2320 DATA 88887777666666666666666666 
HQ 2330 DATA 777789abbcedefeddbba876432 
WZ 2340 DATA 00000000000001223445567788 
NT 2350 DATA 8999aaabaababbabaaa9998887 
IH 2360 DATA 777777778999aaabbbcdccdddd 
NR 2370 DATA edeededdddcccbbcbbaa99a999 
JT 2380 DATA 88877878767666656556556555 






NA 

2390 

DATA 

UQ 

2400 

DATA 

QG 

2410 

DATA 

CZ 

2420 

DATA 

UL 

2430 

DATA 

MF 

2440 

DATA 

NZ 

2450 

DATA 

DU 

2460 

DATA 

FR 

2470 

DATA 

HF 

2480 

DATA 

GX 

2490 

DATA 

EY 

2500 

DATA 

FB 

2510 

DATA 

FE 

2520 

DATA 

FH 

2530 

DATA 

FK 

2540 

DATA 

JD 

2550 

DATA 

OR 

2560 

DATA 

IE 

2570 

DATA 

SE 

2580 

DATA 

OR 

2590 

DATA 

PX 

2600 

DATA 

PN 

2610 

DATA 

QM 

2620 

DATA 

YQ 

2630 

DATA 

VA 

2640 

DATA 

ou 

2650 

DATA 

XQ 

2660 

DATA 

LH 

2670 

DATA 

UX 

2680 

DATA 

YB 

2690 

DATA 

EH 

2700 

DATA 

XW 

2710 

DATA 

vc 

2720 

DATA 

RH 

2730 

DATA 

OG 

2740 

DATA 

LD 

2750 

DATA 

LN 

2760 

DATA 

KP 

2770 

DATA 

AW 

2780 

DATA 

ET 

2790 

DATA 

GS 

2800 

DATA 

GY 

2810 

DATA 

SY 

2820 

DATA 

FG 

2830 

DATA 

FB 

2840 

DATA 

GM 

2850 

DATA 

FW 

2860 

DATA 

FZ 

2870 

DATA 

GC 

2880 

DATA 

GF 

2890 

DATA 

FG 

2900 

DATA 

FJ 

2910 

DATA 

FM 

2920 

DATA 

FP 

2930 

DATA 

FS 

2940 

DATA 

FH 

2950 

DATA 

QI 

2960 

DATA 

IT 

2970 

DATA 

JA 

2980 

DATA 

OL 

2990 

DATA 

TP 

3000 

DATA 

TS 

3010 

DATA 

XL 

3020 

DATA 

U Q 

3030 

DATA 

UB 

3040 

DATA 

UE 

3050 

DATA 

UH 

3060 

DATA 

DC 

3070 

DATA 

PB 

3080 

DATA 

TY 

3090 

DATA 

BE 

3100 

DATA 

YT 

3110 

DATA 

HA 

3120 

DATA 

LY 

3130 

DATA 

ZD 

3140 

DATA 

ZG 

3150 

DATA 

ZJ 

3160 

DATA 

ZM 

3170 

DATA 

ZP 

3180 

DATA 

MN 

3190 

DATA 

LL 

3200 

DATA 

YJ 

3210 

DATA 

OE 

3220 

DATA 

MX 

3230 

DATA 

OQ 

32 40 

DATA 

NV 

3250 

DATA 

OP 

3260 

DATA 

WY 

3270 

DATA 

ZR 

3280 

DATA 

ZU 

3290 

DATA 


65555555555665776677766777 
77888788899999998999999999 
98aa8a999999999999998999a9 
99988899888888888887777888 
88777777777777788888798788 
8888889999999988a899999999 
99999999999989888888888888 
87888888888888888888888788 
88888888888888888888888888 
88979889788898879888888888 
89898888888888888888888888 
88888888888888888888888888 
88888888888888888888888888 
88888888888888888888888888 
88888888888888888888888888 
88888888888888888888888888 
888888888900ffff0071007388 
888888988888899a867977338d 
a57a6ab9cbb859668c8a94a458 
9979eb67889a9a6a877949bab9 
8888887986789a8ab7745689a8 
7ba698603bdec8310fbc979697 
09884 5cc88cd637a879c8679eb 
86469bb8758968888797669768 
9a98996799789989878a988988 
988788788b9788898977899a9a 
9786788899ca6405d8cea8566a 
9bb99865777798879a5644a88a 
aa999888767997686689a9a989 
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YV 

3300 

DATA 

YY 

3310 

DATA 

ZB 

3320 

DATA 

ZE 

3330 

DATA 

ZH 

3340 

DATA 

JU 

3350 

DATA 

TJ 

3360 

DATA 

IQ 

3370 

DATA 

IT 

3380 

DATA 

IW 

3390 

DATA 

HX 

3400 

DATA 

KN 

3410 

DATA 

CP 

3420 

DATA 

YW 

34 30 

DATA 

UJ 

3440 

DATA 

UM 

3450 

DATA 

UP 

3460 

DATA 

US 

3470 

DATA 

SD 

3480 

DATA 

CG 

3490 

DATA 

TZ 

3500 

DATA 

uc 

3510 

DATA 

UF 

3520 

DATA 

Ul 

3530 

DATA 

CZ 

3540 

DATA 

FP 

3550 

DATA 

RV 

3560 

DATA 

JW 

3570 

DATA 

TH 

3580 

DATA 

RG 

3590 

DATA 

GX 

3600 

DATA 

DG 

3610 

DATA 

AG 

3620 

DATA 

JC 

3630 

DATA 

JH 

3640 

DATA 

QC 

36 50 

DATA 

DN 

3660 

DATA 

KL 

3670 

DATA 

EJ 

3680 

DATA 

RS 

3690 

DATA 

IF 

3700 

DATA 

PV 

3710 

DATA 

NC 

3720 

DATA 

cw 

3730 

DATA 

ox 

3740 

DATA 

NI 

3750 

DATA 

YK 

3760 

DATA 

VQ 

3770 

DATA 

KL 

3780 

DATA 

NT 

3790 

DATA 

TX 

3800 

DATA 

FY 

3810 

DATA 

QT 

3820 

DATA 

AT 

3830 

DATA 

FB 

3840 

DATA 

HE 

3850 

DATA 

CC 

3860 

DATA 

CS 

3870 

DATA 

zx 

3880 

DATA 

QC 

3890 

DATA 

IQ 

3900 

DATA 

NK 

3910 

DATA 

FS 

3920 

DATA 

KI 

3930 

DATA 

EO 

3940 

DATA 

YM 

39 50 

DATA 

NX 

3960 

DATA 

OC 

3970 

DATA 

zz 

3980 

DATA 

vo 

3990 

DATA 

CN 

4000 

DATA 

SE 

4010 

DATA 

RW 

4020 

DATA 

YH 

4030 

DATA 

XO 

4040 

DATA 

vw 

4050 

DATA 

RB 

4060 

DATA 

EX 

4070 

DATA 

BS 

4080 

DATA 

QK 

4090 

DATA 

RI 

4100 

DATA 

ST 

4110 

DATA 

LZ 

4120 

DATA 

GI 

4130 

DATA 

VA 

4140 

DATA 

CT 

4150 

DATA 

OB 

4160 

DATA 
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Wirusy to najprostsze twory przyrody, 
które wykazują podstawowe cechy 
właściwe układom żywym. Posiadają 
zdolność rozmnażania się, ale tylko 
w żywej komórce. Nie wykazują cech 
przemiany materii. Są drobnoustrojami 
wywołującymi choroby zakaźne zarówno 
u ludzi, jak u zwierząt i roślin. 
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Wirusy to najprostsze twory 
programistów, które wykazują 
podstawowe cechy właściwe dużym 
programom. Posiadają zdolność 
rozmnażania się, ale tylko 
w pamięci komputera. Nie wykazują 
cech obróbki danych Są 
programami powodującymi wielkie 
zamieszanie zarówno na dużych jak 
i na małych komputerach 


Nie upłynęło wiele wody w rzekach od czasu ukazania się ar¬ 
tykułu pana Janusza B Wiśniewskiego pod tytułem "Złapali¬ 
śmy wirusa" gdy mój komputer zaczął się buntować i okazywać 
swe niezadowolenie. 

- w zależności od humoru i pogody włączał lub wyłącza! 
dźwięk klawiatury 

- w momentach najmniej odpowiednich "stawiał ekran na gło¬ 
wie' iub przestawał wyświetlać znaki w negatywie- 

- buntował się podczas nagrywania czegokolwiek na dysk 

- wieszał się bezpowrotnie po użyciu klawisza RESET 
Nie było cienia wątpliwości że cos jest nie tak 

Po zmaganiach ze sprzętem 1 oprogramowaniem wyselekcjo¬ 
nowałem wirusa będącego zapewne wynikiem ewoluc|i osobnika 
zaprezentowanego przez pana Wiśniewskiego Pozwoliłem sobie 
nazwać go 'Buttonlc". Jest to bestia o wiele bardzięl przebiegła 
i złośliwa od swego przodka Ale zacznijmy od początku 

Po swym protoplaście "Buttonlc' odziedziczył skórkę oraz na¬ 
rządy rozrodcze W tę| materii nic się nie zmieniło więc ograniczę 
się do opisania organów podtrzymujących egzystencję wirusa 
oraz służących do zatruwania życia użytkownikowi ATARI 

Listing z nr 10/92 TA uzupełniłem o następujące deklaracje 

kbcd equ $d209 

rand egu $d20a 

nocl egu $2db 

keyv egu $208 

trme egu $14 

chct egu $2f3 

crit equ $42 

wart egu $c0df 

Zmieniła się inicjallzacja: 

main egu * 

* mit (reset) 

Idy #1 

setr Ida dosi,y 
sta oldr,y 
Ida ares,y 
sta dosi,y 
dey 

bpi setr 

* 'd' entry search 

seek ldx #0 

dsrc Ida htbs,x 

cmp #'D' 
beg foun 
inx 
inx 
inx 

cpx #36 
bcc dsrc 
rts 

* trap table address 
foun Ida #6 page 6I 

cmp htbs+2,x 
beg retu 
Idy #1 

ttlp Ida htbs+2,x 
sta addr,y 
Ida mtad,y 
sta htbs+2,x 

Ida keyv,y 
sta ckey,y 
Ida akey,y 
sta keyv,y 


dex 

dey 

bpi ttlp 
retu rts 

Jak widać, wirus przedłuża wektory dosinl oraz keyuec (we¬ 
ktor przerwania klawiatury! Przy ustawianiu drugiego z wekto¬ 
rów brakuje sekwencji rozkazów wyłączających przerwania na 
czas operacji co może spowodować "skok w maliny 1 Jeśli pod¬ 
czas |ę| wykonywania wywołane zostanie przerwanie klawiatury 
Patrząc Jednak z punktu widzenia wirusa który przybył przecież 
aby sprawić kłopot to wszystko Jest w porządku, wektor RE- 
SET-a jest przedłużony więc system może się Juz wieszać 

*- reset 

rest ]sr * 
oldr egu *—2 
jmp seek 

Po resecle 'Buttonlc'' skacze wpierw do procedur inicjalizują¬ 
cych które były zainstalowane zanim przybył Dzięki temu mogą zo¬ 
stać ustawione wektory do których później nasz wirus się przyklei 
Jak wynika z analizy programu Jest on odporny na RESET 

Najbardziej "złośliwą" częścią "Buttonica" Jest przerwanie kla¬ 
wiatury (stąd nazwa wirusa) 


*-keyboard int 


xkey 

Ida 

cmp 

bne 

sta 

kbcd 

rand 

jumpl 

nocl 

}umpl 

cmp 

bne 

sta 

time 

]ump2 

chct 

jump2 

Ida 

beg 

3 m P 

crit 

]ump3 

wart 

Jump3 

3 nip 

* 

ckey 

egu 

*—2 


Sprawdzane Jest czy kod wciśniętego klawisza zgadza się 
z wartością pobraną z odpowiednich komórek pamięci Jeśli 
kbcode=rand to wartość z kbc-ode wpisywana Jest do rejestru 
nocl, co zazwyczaj powodu|e wyłączenie dźwięku klawiatury 
Jeśli kbcode=tlmer, to wartość z kbcode wpisywana Jest do re¬ 
jestru chrctl, odpowiadającego za wygląd znaków na ekranie 
Ponadto sprawdzany |est rejestr eritic - Jeśli w chwili wywoła¬ 
nia przerwania był on ustawiony to wirus skacze do sprytnej 
procedurkl wait której Jedynym zadaniem zgodnie z nazwą 
Jest oczekiwanie na wciśnięcie klawisza RESET 

Tuz przed wzorem bloku inic|allzac|i dodana została Jeszcze 
krótka tabela 

*- new int vec 

akey dta a(xkey) 
ares dta a(rest) 

Zastosowanie Je] pozwoliło na uproszczenie programu lnic|a- 
llzacjl oraz ograniczenie Jego długości a w następstwie długo¬ 
ści całego wirusa 

I to by było na tyle pozostaje mi Jedynie zyczyć Czytelnikom 
aby znali 'Buttonlra" tylko z tego artykułu 


MAG(M) 



Wykaz punktów sprzedających bieżące i archiwalne numery Tajemnic Atari. 
Drukiem pogrubionym zaznaczono miejsca, w których można równocześnie kupić 

legalne oprogramowanie L.K. AYALON 


PHU FAMPOL 
’CIDER CENTRUM’ 

Strzelców Bytomskich 
Bytom Stroszek 
MIKRA, Jesionowa 3 
Chorzów 
DRZAJA 

Mirowska 6, Częstochowa 
NFO PANDA 

Śniadeckich 20,50, Bydgoszcz 
SPRZĘT KOMPUTEROWY 
Kościuezkl 6/26, Goleniów 
MICROMAN 

Plebiscytowa 31 Katowice 

Rynek 4, Rybnik 

DH HERMES, Rybnik 

SUPERMARKET, Sosnowiec 

Wojska Polskiego 14, 

Bielsko-Biała 

KRYMARYS 

Toruńska 63, Kolo 

KSIĘGARNIA TECHNICZNA 

Podwale 4, Kraków 

BIT - PLUS 

Bieżanowska 1, Kraków 


VIDEO CENTRUM 

Kościelna 5, Krynica Górska 

RETURN Studio Komputerowe 

Zamojska 25, Lublin 

POMAREX 

Bernardyńska 20 

Niecała 12, Lublin 

KSIĘGARNIA TECHNICZNA 

Komuny Paryskiej 5a, Łódź 

OKW Elektronika 

Piotrowska 39, Łódź 

Firma Handlowo Usługowa BD 

Ryńsk 35, Nowy Targ 

MEGABAJT 

Reymonta 23, Opole 

TRACK WS 

Kołłątaja 11 Opole 

PC KOMPUTER 

Ogrody tła, Ostrowiec Św. 

BI&K COMPUTER 

Wierzbięcice 37, Poznań 

P H METRO 

Ratajczaka 31, Poznań 


STUDIO-SIX 
Rejtana 3, Przemyśl 
BAJT, Rejtana 33, Rzeszów 
DĄBI, Szopena, Flzeszów 
DOMAR 

Zygmuntowska, Rzeszów 
Okulickiego, Rzeszów 
STEL-DOM 
Pomorska? Słupsk 
JOKER 

Mickiewicza 15, St. Wola 
KWANT Agencja Handlowa 
Żydowska 6, Tarnów 
SONIX Sp. z o. o. 

Rapackiego 3 
DT Centrum 

Rydla (Helios 2), Szczecin 
COMPUTER CENTER WARS 
Marszałkowska 104/122 
Warszawa 
ATARI STUDIO 
Gen Abrahama 4, Warszawa 
O.KW ELEKTRONIKA 
Mokotowska 51/53, Warszawa 


OSKAR 

Grochowska 207 (Uniyersam) 
Jana Pawia II 58 (Max)m). 
Igańska 26, Warszawa 
DOMAIN SOFT 
Kołłątaja 3t, Wrocław 
DOMAIN SOFTWARE 
Składnica Harcerska przy 
SDH FENIX, ul. Kurzy Targ 3/4 
Wrocław 
COMAT 

Kniaziewicza 19. Wrocław 

KSIĘGARNIA STAROMIEJSKA 
Żeromskiego 16, Zielona Góra 

Zachęcamy itfaścicieli sklepów zainter¬ 
esowanych sprzedażą pisma lub opro¬ 
gramowania do kontaktu z L,K. AVA 
LON Najszybszy kontakt telefoniczny 
pod numer (17) 62 74-71 wew 274, 275 
od 7:30 do 15:00. Of ujemy korzystne 
warunki współpracy Firmy hądż skiepy 
zainteresowane kolportażem gazet 
otrzymują je na zasadach komisowych, 
a ponadto ich adresy są drukowane 
w TA, co stanowi dobrą reklamę. 


L.K. AYALON 


§ 

skr, poczt. 46, Strzyżów 


proponuje: 



Filtry monitorowe siatkowe 

| 

mono/kolor 14 cali z uziemieniem 

230 000 


Akcesoria 


$ 

fc 

rozgałęziacz komputer / antena 

35 000 

<: 

pokrywy na ATARI XL lub XE 

50 000 

§ 

taśma do drukarek STAR LC 10/20 
MICROPRINT {prod USA) 

60 000 

| 

umożliwiający podłączenie do ATARI 
dowolnej drukarki (CENTRONICS) 

200 000 

$ 

g 

dyskietka czyszcząca 5 25 
pudełka na dyskietki o pojemności. 

50 000 

1 

5 szt 

25 000 


10 szt 

30 000 

1 

50 szt 

100 000 


100 szt 

120.000 


Literatura 


3 

:i 

Leksykon komp. dla początkujących 

25 000 

Ś 

Słownik term i komunikatów komp 

25 000 


Instrukcja ATARI 65 XE /130 XE 

30 000 


Atari Basic dla dzieci 

30 000 


Logo Atari 

30 000 


Poznajemy komputer Atari XL/XE 

30 000 

$ 

Mac 65 

30 000 

g 

Opisy gier na małe Atari 

35 000 

ijj 

Atari Basic 

55 000 


Atari Logo 

55 000 


Do łącznego zamówienia należy 

doliczyć 

1 

koszt wysyłki (15 000 zł) W przypadku za- 


mówienia również oprogramowania 

z oferty 


wewnątrz pisma koszt wysyłki me jest doli- 


czany Wszystkie ceny ważne są do ukazania 


się następnego numeru TA. 







3 

g 

■ Uniwersalny moduł cartridge 
do komputerów ATARI XL/XE 

■ Można na mm wielokrotnie za¬ 
pisywać dowolne programy 

H Po wyjęciu z komputera pro¬ 
gramy pozostają w module 
dzięki podtrzymaniu bateryjne- 
mu | 

I Dla zaawansowanych symula¬ 
cja napędu dyskietek 


Do każdego RAM CARTu dołączone są programy pomocnicze na kasecie i dys- 1 
kietce oraz podręcznik użytkownika systemu opracowany w L K AVALON 

DODATKOWO, ZA DARMO nagrywamy na RAM-CART 
zestawy programów z TA (najlepsze gry z zestawów TA 1,2,3,4,5,6). 

Jedyna okazja zdobycia 64 lub 128 KB legalnego oprogramowania 

ZA DARMO!!! f 

Jako autoryzowany dystrybutor RAM CARTu udzielamy rocznej gwarancji działa¬ 
nia modułu W wypadku wystąpienia wad uniemożliwiających używanie systemu 
drogą pocztową wymieniamy wadliwe egzemplarze na poprawnie działające 

Cena systemu z 64KB pamięci - 450 000 zł 

Cena systemu z 128KB pamięci 710 000 zl 


L.K. AVALON 

skr. poczt. 46 
38-100 Strzyżów 

Uregulowanie należności następuje przy odbiorze przesyłki 


8SS 











